dlls/mshtml/tests/htmldoc.c

   1 /*
   2  * Copyright 2005-2007 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
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "ole2.h"
  28 #include "mshtml.h"
  29 #include "docobj.h"
  30 #include "mshtmhst.h"
  31 #include "mshtmdid.h"
  32 #include "mshtmcid.h"
  33 #include "hlink.h"
  34 #include "idispids.h"
  35 #include "shlguid.h"
  36
  37 #include "initguid.h"
  38 DEFINE_OLEGUID(CGID_DocHostCmdPriv, 0x000214D4L, 0, 0);
  39
  40 #define DEFINE_EXPECT(func) \
  41     static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
  42
  43 #define SET_EXPECT(func) \
  44     expect_ ## func = TRUE
  45
  46 #define SET_CALLED(func) \
  47     called_ ## func = TRUE
  48
  49 #define CHECK_EXPECT2(func) \
  50     do { \
  51         ok(expect_ ##func, "unexpected call " #func "\n"); \
  52         called_ ## func = TRUE; \
  53     }while(0)
  54
  55 #define CHECK_EXPECT(func) \
  56     do { \
  57         CHECK_EXPECT2(func); \
  58         expect_ ## func = FALSE; \
  59     }while(0)
  60
  61 #define CHECK_CALLED(func) \
  62     do { \
  63         ok(called_ ## func, "expected " #func "\n"); \
  64         expect_ ## func = called_ ## func = FALSE; \
  65     }while(0)
  66
  67 static IOleDocumentView *view = NULL;
  68 static HWND container_hwnd = NULL, hwnd = NULL, last_hwnd = NULL;
  69
  70 DEFINE_EXPECT(LockContainer);
  71 DEFINE_EXPECT(SetActiveObject);
  72 DEFINE_EXPECT(GetWindow);
  73 DEFINE_EXPECT(CanInPlaceActivate);
  74 DEFINE_EXPECT(OnInPlaceActivate);
  75 DEFINE_EXPECT(OnUIActivate);
  76 DEFINE_EXPECT(GetWindowContext);
  77 DEFINE_EXPECT(OnUIDeactivate);
  78 DEFINE_EXPECT(OnInPlaceDeactivate);
  79 DEFINE_EXPECT(GetContainer);
  80 DEFINE_EXPECT(ShowUI);
  81 DEFINE_EXPECT(ActivateMe);
  82 DEFINE_EXPECT(GetHostInfo);
  83 DEFINE_EXPECT(HideUI);
  84 DEFINE_EXPECT(GetOptionKeyPath);
  85 DEFINE_EXPECT(GetOverrideKeyPath);
  86 DEFINE_EXPECT(SetStatusText);
  87 DEFINE_EXPECT(QueryStatus_SETPROGRESSTEXT);
  88 DEFINE_EXPECT(QueryStatus_OPEN);
  89 DEFINE_EXPECT(QueryStatus_NEW);
  90 DEFINE_EXPECT(Exec_SETPROGRESSMAX);
  91 DEFINE_EXPECT(Exec_SETPROGRESSPOS);
  92 DEFINE_EXPECT(Exec_HTTPEQUIV_DONE);
  93 DEFINE_EXPECT(Exec_SETDOWNLOADSTATE_0);
  94 DEFINE_EXPECT(Exec_SETDOWNLOADSTATE_1);
  95 DEFINE_EXPECT(Exec_ShellDocView_37);
  96 DEFINE_EXPECT(Exec_UPDATECOMMANDS);
  97 DEFINE_EXPECT(Exec_SETTITLE);
  98 DEFINE_EXPECT(Exec_HTTPEQUIV);
  99 DEFINE_EXPECT(Exec_MSHTML_PARSECOMPLETE);
 100 DEFINE_EXPECT(Invoke_AMBIENT_USERMODE);
 101 DEFINE_EXPECT(Invoke_AMBIENT_DLCONTROL);
 102 DEFINE_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
 103 DEFINE_EXPECT(Invoke_AMBIENT_SILENT);
 104 DEFINE_EXPECT(Invoke_AMBIENT_USERAGENT);
 105 DEFINE_EXPECT(Invoke_AMBIENT_PALETTE);
 106 DEFINE_EXPECT(GetDropTarget);
 107 DEFINE_EXPECT(UpdateUI);
 108 DEFINE_EXPECT(Navigate);
 109 DEFINE_EXPECT(OnFrameWindowActivate);
 110 DEFINE_EXPECT(OnChanged_READYSTATE);
 111 DEFINE_EXPECT(OnChanged_1005);
 112 DEFINE_EXPECT(GetDisplayName);
 113 DEFINE_EXPECT(BindToStorage);
 114 DEFINE_EXPECT(Abort);
 115 DEFINE_EXPECT(Read);
 116 DEFINE_EXPECT(CreateInstance);
 117 DEFINE_EXPECT(Start);
 118 DEFINE_EXPECT(Terminate);
 119 DEFINE_EXPECT(Protocol_Read);
 120 DEFINE_EXPECT(LockRequest);
 121 DEFINE_EXPECT(UnlockRequest);
 122
 123 static IUnknown *doc_unk;
 124 static BOOL expect_LockContainer_fLock;
 125 static BOOL expect_SetActiveObject_active;
 126 static BOOL set_clientsite = FALSE, container_locked = FALSE;
 127 static BOOL readystate_set_loading = FALSE, load_from_stream;
 128 static BOOL editmode = FALSE;
 129 static int stream_read, protocol_read;
 130 static enum load_state_t {
 131     LD_DOLOAD,
 132     LD_LOADING,
 133     LD_INTERACTIVE,
 134     LD_COMPLETE,
 135     LD_NO
 136 } load_state;
 137
 138 static LPCOLESTR expect_status_text = NULL;
 139
 140 static const char html_page[] =
 141 "<html>"
 142 "<head><link rel=\"stylesheet\" type=\"text/css\" href=\"test.css\"></head>"
 143 "<body>test</body>"
 144 "</html>";
 145
 146 static const char css_data[] = "body {color: red}";
 147
 148 static const WCHAR doc_url[] = {'w','i','n','e','t','e','s','t',':','d','o','c',0};
 149
 150 static HRESULT QueryInterface(REFIID riid, void **ppv);
 151 static void test_readyState(IUnknown*);
 152 static void test_MSHTML_QueryStatus(IUnknown*,DWORD);
 153 static BOOL nogecko = FALSE;
 154
 155 static const WCHAR wszTimesNewRoman[] =
 156     {'T','i','m','e','s',' ','N','e','w',' ','R','o','m','a','n',0};
 157 static const WCHAR wszArial[] =
 158     {'A','r','i','a','l',0};
 159
 160 #define EXPECT_UPDATEUI  1
 161 #define EXPECT_SETTITLE  2
 162
 163 static void test_timer(DWORD flags)
 164 {
 165     BOOL *b = &called_Exec_SETTITLE;
 166     MSG msg;
 167
 168     if(flags & EXPECT_UPDATEUI) {
 169         SET_EXPECT(UpdateUI);
 170         SET_EXPECT(Exec_UPDATECOMMANDS);
 171         b = &called_UpdateUI;
 172     }
 173     if(flags & EXPECT_SETTITLE)
 174         SET_EXPECT(Exec_SETTITLE);
 175
 176     while(!*b && GetMessage(&msg, hwnd, 0, 0)) {
 177         TranslateMessage(&msg);
 178         DispatchMessage(&msg);
 179     }
 180
 181     if(flags & EXPECT_UPDATEUI) {
 182         CHECK_CALLED(UpdateUI);
 183         CHECK_CALLED(Exec_UPDATECOMMANDS);
 184     }
 185     if(flags & EXPECT_SETTITLE)
 186         CHECK_CALLED(Exec_SETTITLE);
 187 }
 188
 189 static HRESULT WINAPI Protocol_QueryInterface(IInternetProtocol *iface, REFIID riid, void **ppv)
 190 {
 191     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IInternetProtocol, riid)) {
 192         *ppv = iface;
 193         return S_OK;
 194     }
 195
 196     *ppv = NULL;
 197     return E_NOINTERFACE;
 198 }
 199
 200 static ULONG WINAPI Protocol_AddRef(IInternetProtocol *iface)
 201 {
 202     return 2;
 203 }
 204
 205 static ULONG WINAPI Protocol_Release(IInternetProtocol *iface)
 206 {
 207     return 1;
 208 }
 209
 210 static HRESULT WINAPI Protocol_Start(IInternetProtocol *iface, LPCWSTR szUrl,
 211         IInternetProtocolSink *pOIProtSink, IInternetBindInfo *pOIBindInfo,
 212         DWORD grfPI, DWORD dwReserved)
 213 {
 214     BINDINFO bindinfo;
 215     DWORD bindf = 0;
 216     HRESULT hres;
 217
 218     static const WCHAR wszTextCss[] = {'t','e','x','t','/','c','s','s',0};
 219     static const WCHAR empty_str = {0};
 220
 221     CHECK_EXPECT(Start);
 222
 223     ok(pOIProtSink != NULL, "pOIProtSink == NULL\n");
 224     ok(pOIBindInfo != NULL, "pOIBindInfo == NULL\n");
 225     ok(!grfPI, "grfPI = %x\n", grfPI);
 226     ok(!dwReserved, "dwReserved = %d\n", dwReserved);
 227
 228     memset(&bindinfo, 0, sizeof(bindinfo));
 229     bindinfo.cbSize = sizeof(bindinfo);
 230     hres = IInternetBindInfo_GetBindInfo(pOIBindInfo, &bindf, &bindinfo);
 231     ok(hres == S_OK, "GetBindInfo failed: %08x\n", hres);
 232     ok(bindf == (BINDF_FROMURLMON|BINDF_PULLDATA|BINDF_NEEDFILE|BINDF_ASYNCSTORAGE|BINDF_ASYNCHRONOUS),
 233        "bindf = %x\n", bindf);
 234
 235     ok(bindinfo.cbSize == sizeof(bindinfo), "bindinfo.cbSize=%d\n", bindinfo.cbSize);
 236     ok(bindinfo.szExtraInfo == NULL, "bindinfo.szExtraInfo=%p\n", bindinfo.szExtraInfo);
 237     /* TODO: test stgmedData */
 238     ok(bindinfo.grfBindInfoF == 0, "bindinfo.grfBinfInfoF=%08x\n", bindinfo.grfBindInfoF);
 239     ok(bindinfo.dwBindVerb == 0, "bindinfo.dwBindVerb=%d\n", bindinfo.dwBindVerb);
 240     ok(bindinfo.szCustomVerb == 0, "bindinfo.szCustomVerb=%p\n", bindinfo.szCustomVerb);
 241     ok(bindinfo.cbstgmedData == 0, "bindinfo.cbstgmedData=%d\n", bindinfo.cbstgmedData);
 242     ok(bindinfo.dwOptions == 0x80000, "bindinfo.dwOptions=%x\n", bindinfo.dwOptions);
 243     ok(bindinfo.dwOptionsFlags == 0, "bindinfo.dwOptionsFlags=%d\n", bindinfo.dwOptionsFlags);
 244     /* TODO: test dwCodePage */
 245     /* TODO: test securityAttributes */
 246     ok(IsEqualGUID(&IID_NULL, &bindinfo.iid), "unexpected bindinfo.iid\n");
 247     ok(bindinfo.pUnk == NULL, "bindinfo.pUnk=%p\n", bindinfo.pUnk);
 248     ok(bindinfo.dwReserved == 0, "bindinfo.dwReserved=%d\n", bindinfo.dwReserved);
 249
 250     hres = IInternetProtocolSink_ReportProgress(pOIProtSink,
 251             BINDSTATUS_CACHEFILENAMEAVAILABLE, &empty_str);
 252     ok(hres == S_OK, "ReportProgress(BINDSTATUS_CACHEFILENAMEAVAILABLE) failed: %08x\n", hres);
 253
 254     hres = IInternetProtocolSink_ReportProgress(pOIProtSink,
 255             BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE, wszTextCss);
 256     ok(hres == S_OK,
 257        "ReportProgress(BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE) failed: %08x\n", hres);
 258
 259     hres = IInternetProtocolSink_ReportData(pOIProtSink,
 260             BSCF_FIRSTDATANOTIFICATION | BSCF_LASTDATANOTIFICATION, 13, 13);
 261     ok(hres == S_OK, "ReportData failed: %08x\n", hres);
 262
 263     hres = IInternetProtocolSink_ReportResult(pOIProtSink, S_OK, 0, NULL);
 264     ok(hres == S_OK, "ReportResult failed: %08x\n", hres);
 265
 266     return S_OK;
 267 }
 268
 269 static HRESULT WINAPI Protocol_Continue(IInternetProtocol *iface,
 270         PROTOCOLDATA *pProtocolData)
 271 {
 272     ok(0, "unexpected call\n");
 273     return E_NOTIMPL;
 274 }
 275
 276 static HRESULT WINAPI Protocol_Abort(IInternetProtocol *iface, HRESULT hrReason,
 277         DWORD dwOptions)
 278 {
 279     ok(0, "unexpected call\n");
 280     return E_NOTIMPL;
 281 }
 282
 283 static HRESULT WINAPI Protocol_Terminate(IInternetProtocol *iface, DWORD dwOptions)
 284 {
 285     CHECK_EXPECT(Terminate);
 286     return S_OK;
 287 }
 288
 289 static HRESULT WINAPI Protocol_Suspend(IInternetProtocol *iface)
 290 {
 291     ok(0, "unexpected call\n");
 292     return E_NOTIMPL;
 293 }
 294
 295 static HRESULT WINAPI Protocol_Resume(IInternetProtocol *iface)
 296 {
 297     ok(0, "unexpected call\n");
 298     return E_NOTIMPL;
 299 }
 300
 301 static HRESULT WINAPI Protocol_Read(IInternetProtocol *iface, void *pv,
 302         ULONG cb, ULONG *pcbRead)
 303 {
 304     CHECK_EXPECT2(Protocol_Read);
 305
 306     ok(pv != NULL, "pv == NULL\n");
 307     ok(cb > sizeof(css_data), "cb < sizeof(css_data)\n");
 308     ok(pcbRead != NULL, "pcbRead == NULL\n");
 309     ok(!*pcbRead, "*pcbRead=%d\n", *pcbRead);
 310
 311     if(protocol_read)
 312         return S_FALSE;
 313
 314     protocol_read += *pcbRead = sizeof(css_data)-1;
 315     memcpy(pv, css_data, sizeof(css_data)-1);
 316     return S_OK;
 317 }
 318
 319 static HRESULT WINAPI Protocol_Seek(IInternetProtocol *iface,
 320         LARGE_INTEGER dlibMove, DWORD dwOrigin, ULARGE_INTEGER *plibNewPosition)
 321 {
 322     ok(0, "unexpected call\n");
 323     return E_NOTIMPL;
 324 }
 325
 326 static HRESULT WINAPI Protocol_LockRequest(IInternetProtocol *iface, DWORD dwOptions)
 327 {
 328     CHECK_EXPECT(LockRequest);
 329     return S_OK;
 330 }
 331
 332 static HRESULT WINAPI Protocol_UnlockRequest(IInternetProtocol *iface)
 333 {
 334     CHECK_EXPECT(UnlockRequest);
 335     return S_OK;
 336 }
 337
 338 static const IInternetProtocolVtbl ProtocolVtbl = {
 339     Protocol_QueryInterface,
 340     Protocol_AddRef,
 341     Protocol_Release,
 342     Protocol_Start,
 343     Protocol_Continue,
 344     Protocol_Abort,
 345     Protocol_Terminate,
 346     Protocol_Suspend,
 347     Protocol_Resume,
 348     Protocol_Read,
 349     Protocol_Seek,
 350     Protocol_LockRequest,
 351     Protocol_UnlockRequest
 352 };
 353
 354 static IInternetProtocol Protocol = { &ProtocolVtbl };
 355
 356 static HRESULT WINAPI ClassFactory_QueryInterface(IClassFactory *iface, REFIID riid, void **ppv)
 357 {
 358     if(!IsEqualGUID(&IID_IInternetProtocolInfo, riid))
 359         ok(0, "unexpected call\n");
 360     return E_NOINTERFACE;
 361 }
 362
 363 static ULONG WINAPI ClassFactory_AddRef(IClassFactory *iface)
 364 {
 365     return 2;
 366 }
 367
 368 static ULONG WINAPI ClassFactory_Release(IClassFactory *iface)
 369 {
 370     return 1;
 371 }
 372
 373 static HRESULT WINAPI ClassFactory_CreateInstance(IClassFactory *iface, IUnknown *pOuter,
 374                                         REFIID riid, void **ppv)
 375 {
 376     if(IsEqualGUID(&IID_IInternetProtocolInfo, riid))
 377         return E_NOINTERFACE;
 378
 379     CHECK_EXPECT(CreateInstance);
 380     ok(ppv != NULL, "ppv == NULL\n");
 381
 382     *ppv = &Protocol;
 383     return S_OK;
 384 }
 385
 386 static HRESULT WINAPI ClassFactory_LockServer(IClassFactory *iface, BOOL dolock)
 387 {
 388     ok(0, "unexpected call\n");
 389     return S_OK;
 390 }
 391
 392 static const IClassFactoryVtbl ClassFactoryVtbl = {
 393     ClassFactory_QueryInterface,
 394     ClassFactory_AddRef,
 395     ClassFactory_Release,
 396     ClassFactory_CreateInstance,
 397     ClassFactory_LockServer
 398 };
 399
 400 static IClassFactory ClassFactory = { &ClassFactoryVtbl };
 401
 402 static HRESULT WINAPI HlinkFrame_QueryInterface(IHlinkFrame *iface, REFIID riid, void **ppv)
 403 {
 404     ok(0, "unexpected call\n");
 405     return E_NOTIMPL;
 406 }
 407
 408 static ULONG WINAPI HlinkFrame_AddRef(IHlinkFrame *iface)
 409 {
 410     return 2;
 411 }
 412
 413 static ULONG WINAPI HlinkFrame_Release(IHlinkFrame *iface)
 414 {
 415     return 1;
 416 }
 417
 418 static HRESULT WINAPI HlinkFrame_SetBrowseContext(IHlinkFrame *iface,
 419                                                   IHlinkBrowseContext *pihlbc)
 420 {
 421     ok(0, "unexpected call\n");
 422     return E_NOTIMPL;
 423 }
 424
 425 static HRESULT WINAPI HlinkFrame_GetBrowseContext(IHlinkFrame *iface,
 426                                                   IHlinkBrowseContext **ppihlbc)
 427 {
 428     ok(0, "unexpected call\n");
 429     return E_NOTIMPL;
 430 }
 431
 432 static HRESULT WINAPI HlinkFrame_Navigate(IHlinkFrame *iface, DWORD grfHLNF, LPBC pbc,
 433                                           IBindStatusCallback *pibsc, IHlink *pihlNavigate)
 434 {
 435     HRESULT hres;
 436
 437     CHECK_EXPECT(Navigate);
 438
 439     ok(grfHLNF == 0, "grfHLNF=%d, expected 0\n", grfHLNF);
 440     ok(pbc != NULL, "pbc == NULL\n");
 441     ok(pibsc != NULL, "pubsc == NULL\n");
 442     ok(pihlNavigate != NULL, "puhlNavigate == NULL\n");
 443
 444     if(pihlNavigate) {
 445         LPWSTR frame_name = (LPWSTR)0xdeadbeef;
 446         LPWSTR location = (LPWSTR)0xdeadbeef;
 447         IHlinkSite *site;
 448         IMoniker *mon = NULL;
 449         DWORD site_data = 0xdeadbeef;
 450
 451         hres = IHlink_GetTargetFrameName(pihlNavigate, &frame_name);
 452         ok(hres == S_FALSE, "GetTargetFrameName failed: %08x\n", hres);
 453         ok(frame_name == NULL, "frame_name = %p\n", frame_name);
 454
 455         hres = IHlink_GetMonikerReference(pihlNavigate, 1, &mon, &location);
 456         ok(hres == S_OK, "GetMonikerReference failed: %08x\n", hres);
 457         ok(location == NULL, "location = %p\n", location);
 458         ok(mon != NULL, "mon == NULL\n");
 459
 460         hres = IHlink_GetHlinkSite(pihlNavigate, &site, &site_data);
 461         ok(hres == S_OK, "GetHlinkSite failed: %08x\n", hres);
 462         ok(site == NULL, "site = %p\n, expected NULL\n", site);
 463         ok(site_data == 0xdeadbeef, "site_data = %x\n", site_data);
 464     }
 465
 466     return S_OK;
 467 }
 468
 469 static HRESULT WINAPI HlinkFrame_OnNavigate(IHlinkFrame *iface, DWORD grfHLNF,
 470         IMoniker *pimkTarget, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, DWORD dwreserved)
 471 {
 472     ok(0, "unexpected call\n");
 473     return E_NOTIMPL;
 474 }
 475
 476 static HRESULT WINAPI HlinkFrame_UpdateHlink(IHlinkFrame *iface, ULONG uHLID,
 477         IMoniker *pimkTarget, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName)
 478 {
 479     ok(0, "unexpected call\n");
 480     return E_NOTIMPL;
 481 }
 482
 483 static const IHlinkFrameVtbl HlinkFrameVtbl = {
 484     HlinkFrame_QueryInterface,
 485     HlinkFrame_AddRef,
 486     HlinkFrame_Release,
 487     HlinkFrame_SetBrowseContext,
 488     HlinkFrame_GetBrowseContext,
 489     HlinkFrame_Navigate,
 490     HlinkFrame_OnNavigate,
 491     HlinkFrame_UpdateHlink
 492 };
 493
 494 static IHlinkFrame HlinkFrame = { &HlinkFrameVtbl };
 495
 496 static HRESULT WINAPI PropertyNotifySink_QueryInterface(IPropertyNotifySink *iface,
 497         REFIID riid, void**ppv)
 498 {
 499     if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
 500         *ppv = iface;
 501         return S_OK;
 502     }
 503
 504     ok(0, "unexpected call\n");
 505     return E_NOINTERFACE;
 506 }
 507
 508 static ULONG WINAPI PropertyNotifySink_AddRef(IPropertyNotifySink *iface)
 509 {
 510     return 2;
 511 }
 512
 513 static ULONG WINAPI PropertyNotifySink_Release(IPropertyNotifySink *iface)
 514 {
 515     return 1;
 516 }
 517
 518 static HRESULT WINAPI PropertyNotifySink_OnChanged(IPropertyNotifySink *iface, DISPID dispID)
 519 {
 520     switch(dispID) {
 521     case DISPID_READYSTATE:
 522         CHECK_EXPECT2(OnChanged_READYSTATE);
 523         test_MSHTML_QueryStatus(NULL, OLECMDF_SUPPORTED
 524             | (editmode && (load_state == LD_INTERACTIVE || load_state == LD_COMPLETE)
 525                ? OLECMDF_ENABLED : 0));
 526
 527         if(readystate_set_loading) {
 528             readystate_set_loading = FALSE;
 529             load_state = LD_LOADING;
 530         }
 531         test_readyState(NULL);
 532         return S_OK;
 533     case 1005:
 534         CHECK_EXPECT(OnChanged_1005);
 535         test_readyState(NULL);
 536         load_state = LD_INTERACTIVE;
 537         return S_OK;
 538     }
 539
 540     ok(0, "unexpected id %d\n", dispID);
 541     return E_NOTIMPL;
 542 }
 543
 544 static HRESULT WINAPI PropertyNotifySink_OnRequestEdit(IPropertyNotifySink *iface, DISPID dispID)
 545 {
 546     ok(0, "unexpected call\n");
 547     return E_NOTIMPL;
 548 }
 549
 550 static IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = {
 551     PropertyNotifySink_QueryInterface,
 552     PropertyNotifySink_AddRef,
 553     PropertyNotifySink_Release,
 554     PropertyNotifySink_OnChanged,
 555     PropertyNotifySink_OnRequestEdit
 556 };
 557
 558 static IPropertyNotifySink PropertyNotifySink = { &PropertyNotifySinkVtbl };
 559
 560 static HRESULT WINAPI Stream_QueryInterface(IStream *iface, REFIID riid, void **ppv)
 561 {
 562     ok(0, "unexpected call\n");
 563     return E_NOINTERFACE;
 564 }
 565
 566 static ULONG WINAPI Stream_AddRef(IStream *iface)
 567 {
 568     return 2;
 569 }
 570
 571 static ULONG WINAPI Stream_Release(IStream *iface)
 572 {
 573     return 1;
 574 }
 575
 576 static HRESULT WINAPI Stream_Read(IStream *iface, void *pv,
 577                                   ULONG cb, ULONG *pcbRead)
 578 {
 579     CHECK_EXPECT2(Read);
 580     ok(pv != NULL, "pv == NULL\n");
 581     ok(cb > sizeof(html_page), "cb = %d\n", cb);
 582     ok(pcbRead != NULL, "pcbRead == NULL\n");
 583     ok(!*pcbRead, "*pcbRead = %d\n", *pcbRead);
 584
 585     if(stream_read)
 586         return S_FALSE;
 587
 588     memcpy(pv, html_page, sizeof(html_page)-1);
 589     stream_read += *pcbRead = sizeof(html_page)-1;
 590     return S_OK;
 591 }
 592
 593 static HRESULT WINAPI Stream_Write(IStream *iface, const void *pv,
 594                                           ULONG cb, ULONG *pcbWritten)
 595 {
 596     ok(0, "unexpected call\n");
 597     return E_NOTIMPL;
 598 }
 599
 600 static HRESULT WINAPI Stream_Seek(IStream *iface, LARGE_INTEGER dlibMove,
 601                                          DWORD dwOrigin, ULARGE_INTEGER *plibNewPosition)
 602 {
 603     ok(0, "unexpected call\n");
 604     return E_NOTIMPL;
 605 }
 606
 607 static HRESULT WINAPI Stream_SetSize(IStream *iface, ULARGE_INTEGER libNewSize)
 608 {
 609     ok(0, "unexpected call\n");
 610     return E_NOTIMPL;
 611 }
 612
 613 static HRESULT WINAPI Stream_CopyTo(IStream *iface, IStream *pstm,
 614         ULARGE_INTEGER cb, ULARGE_INTEGER *pcbRead, ULARGE_INTEGER *pcbWritten)
 615 {
 616     ok(0, "unexpected call\n");
 617     return E_NOTIMPL;
 618 }
 619
 620 static HRESULT WINAPI Stream_Commit(IStream *iface, DWORD grfCommitFlags)
 621 {
 622     ok(0, "unexpected call\n");
 623     return E_NOTIMPL;
 624 }
 625
 626 static HRESULT WINAPI Stream_Revert(IStream *iface)
 627 {
 628     ok(0, "unexpected call\n");
 629     return E_NOTIMPL;
 630 }
 631
 632 static HRESULT WINAPI Stream_LockRegion(IStream *iface, ULARGE_INTEGER libOffset,
 633                                                ULARGE_INTEGER cb, DWORD dwLockType)
 634 {
 635     ok(0, "unexpected call\n");
 636     return E_NOTIMPL;
 637 }
 638
 639 static HRESULT WINAPI Stream_UnlockRegion(IStream *iface,
 640         ULARGE_INTEGER libOffset, ULARGE_INTEGER cb, DWORD dwLockType)
 641 {
 642     ok(0, "unexpected call\n");
 643     return E_NOTIMPL;
 644 }
 645
 646 static HRESULT WINAPI Stream_Stat(IStream *iface, STATSTG *pstatstg,
 647                                          DWORD dwStatFlag)
 648 {
 649     ok(0, "unexpected call\n");
 650     return E_NOTIMPL;
 651 }
 652
 653 static HRESULT WINAPI Stream_Clone(IStream *iface, IStream **ppstm)
 654 {
 655     ok(0, "unexpected call\n");
 656     return E_NOTIMPL;
 657 }
 658
 659 static const IStreamVtbl StreamVtbl = {
 660     Stream_QueryInterface,
 661     Stream_AddRef,
 662     Stream_Release,
 663     Stream_Read,
 664     Stream_Write,
 665     Stream_Seek,
 666     Stream_SetSize,
 667     Stream_CopyTo,
 668     Stream_Commit,
 669     Stream_Revert,
 670     Stream_LockRegion,
 671     Stream_UnlockRegion,
 672     Stream_Stat,
 673     Stream_Clone
 674 };
 675
 676 static IStream Stream = { &StreamVtbl };
 677
 678 static HRESULT WINAPI Binding_QueryInterface(IBinding *iface, REFIID riid, void **ppv)
 679 {
 680     if(IsEqualGUID(&IID_IWinInetHttpInfo, riid))
 681         return E_NOINTERFACE; /* TODO */
 682
 683     if(IsEqualGUID(&IID_IWinInetInfo, riid))
 684         return E_NOINTERFACE; /* TODO */
 685
 686     ok(0, "unexpected call\n");
 687     return E_NOINTERFACE;
 688 }
 689
 690 static ULONG WINAPI Binding_AddRef(IBinding *iface)
 691 {
 692     return 2;
 693 }
 694
 695 static ULONG WINAPI Binding_Release(IBinding *iface)
 696 {
 697     return 1;
 698 }
 699
 700 static HRESULT WINAPI Binding_Abort(IBinding *iface)
 701 {
 702     CHECK_EXPECT(Abort);
 703     return S_OK;
 704 }
 705
 706 static HRESULT WINAPI Binding_Suspend(IBinding *iface)
 707 {
 708     ok(0, "unexpected call\n");
 709     return E_NOTIMPL;
 710 }
 711
 712 static HRESULT WINAPI Binding_Resume(IBinding *iface)
 713 {
 714     ok(0, "unexpected call\n");
 715     return E_NOTIMPL;
 716 }
 717
 718 static HRESULT WINAPI Binding_SetPriority(IBinding *iface, LONG nPriority)
 719 {
 720     ok(0, "unexpected call\n");
 721     return E_NOTIMPL;
 722 }
 723
 724 static HRESULT WINAPI Binding_GetPriority(IBinding *iface, LONG *pnPriority)
 725 {
 726     ok(0, "unexpected call\n");
 727     return E_NOTIMPL;
 728 }
 729
 730 static HRESULT WINAPI Binding_GetBindResult(IBinding *iface, CLSID *pclsidProtocol,
 731         DWORD *pdwResult, LPOLESTR *pszResult, DWORD *pdwReserved)
 732 {
 733     ok(0, "unexpected call\n");
 734     return E_NOTIMPL;
 735 }
 736
 737 static const IBindingVtbl BindingVtbl = {
 738     Binding_QueryInterface,
 739     Binding_AddRef,
 740     Binding_Release,
 741     Binding_Abort,
 742     Binding_Suspend,
 743     Binding_Resume,
 744     Binding_SetPriority,
 745     Binding_GetPriority,
 746     Binding_GetBindResult
 747 };
 748
 749 static IBinding Binding = { &BindingVtbl };
 750
 751 static HRESULT WINAPI Moniker_QueryInterface(IMoniker *iface, REFIID riid, void **ppv)
 752 {
 753     ok(0, "unexpected call\n");
 754     return E_NOINTERFACE;
 755 }
 756
 757 static ULONG WINAPI Moniker_AddRef(IMoniker *iface)
 758 {
 759     return 2;
 760 }
 761
 762 static ULONG WINAPI Moniker_Release(IMoniker *iface)
 763 {
 764     return 1;
 765 }
 766
 767 static HRESULT WINAPI Moniker_GetClassID(IMoniker *iface, CLSID *pClassID)
 768 {
 769     ok(0, "unexpected call\n");
 770     return E_NOTIMPL;
 771 }
 772
 773 static HRESULT WINAPI Moniker_IsDirty(IMoniker *iface)
 774 {
 775     ok(0, "unexpected call\n");
 776     return E_NOTIMPL;
 777 }
 778
 779 static HRESULT WINAPI Moniker_Load(IMoniker *iface, IStream *pStm)
 780 {
 781     ok(0, "unexpected call\n");
 782     return E_NOTIMPL;
 783 }
 784
 785 static HRESULT WINAPI Moniker_Save(IMoniker *iface, IStream *pStm, BOOL fClearDirty)
 786 {
 787     ok(0, "unexpected call\n");
 788     return E_NOTIMPL;
 789 }
 790
 791 static HRESULT WINAPI Moniker_GetSizeMax(IMoniker *iface, ULARGE_INTEGER *pcbSize)
 792 {
 793     ok(0, "unexpected call\n");
 794     return E_NOTIMPL;
 795 }
 796
 797 static HRESULT WINAPI Moniker_BindToObject(IMoniker *iface, IBindCtx *pcb, IMoniker *pmkToLeft,
 798         REFIID riidResult, void **ppvResult)
 799 {
 800     ok(0, "unexpected call\n");
 801     return E_NOTIMPL;
 802 }
 803
 804 static HRESULT WINAPI Moniker_BindToStorage(IMoniker *iface, IBindCtx *pbc, IMoniker *pmkToLeft,
 805         REFIID riid, void **ppv)
 806 {
 807     IBindStatusCallback *callback = NULL;
 808     FORMATETC formatetc = {0xc02d, NULL, 1, -1, TYMED_ISTREAM};
 809     STGMEDIUM stgmedium;
 810     BINDINFO bindinfo;
 811     DWORD bindf;
 812     HRESULT hres;
 813
 814     static OLECHAR BSCBHolder[] = { '_','B','S','C','B','_','H','o','l','d','e','r','_',0 };
 815     static const WCHAR wszTextHtml[] = {'t','e','x','t','/','h','t','m','l',0};
 816
 817     CHECK_EXPECT(BindToStorage);
 818
 819     ok(pbc != NULL, "pbc == NULL\n");
 820     ok(pmkToLeft == NULL, "pmkToLeft=%p\n", pmkToLeft);
 821     ok(IsEqualGUID(&IID_IStream, riid), "unexpected riid\n");
 822     ok(ppv != NULL, "ppv == NULL\n");
 823     ok(*ppv == NULL, "*ppv=%p\n", *ppv);
 824
 825     hres = IBindCtx_GetObjectParam(pbc, BSCBHolder, (IUnknown**)&callback);
 826     ok(hres == S_OK, "GetObjectParam failed: %08x\n", hres);
 827     ok(callback != NULL, "callback == NULL\n");
 828
 829     memset(&bindinfo, 0xf0, sizeof(bindinfo));
 830     bindinfo.cbSize = sizeof(bindinfo);
 831
 832     hres = IBindStatusCallback_GetBindInfo(callback, &bindf, &bindinfo);
 833     ok(hres == S_OK, "GetBindInfo failed: %08x\n", hres);
 834     ok(bindf == (BINDF_PULLDATA|BINDF_ASYNCSTORAGE|BINDF_ASYNCHRONOUS), "bindf = %08x\n", bindf);
 835     ok(bindinfo.cbSize == sizeof(bindinfo), "bindinfo.cbSize=%d\n", bindinfo.cbSize);
 836     ok(bindinfo.szExtraInfo == NULL, "bindinfo.szExtraInfo=%p\n", bindinfo.szExtraInfo);
 837     /* TODO: test stgmedData */
 838     ok(bindinfo.grfBindInfoF == 0, "bindinfo.grfBinfInfoF=%08x\n", bindinfo.grfBindInfoF);
 839     ok(bindinfo.dwBindVerb == 0, "bindinfo.dwBindVerb=%d\n", bindinfo.dwBindVerb);
 840     ok(bindinfo.szCustomVerb == 0, "bindinfo.szCustomVerb=%p\n", bindinfo.szCustomVerb);
 841     ok(bindinfo.cbstgmedData == 0, "bindinfo.cbstgmedData=%d\n", bindinfo.cbstgmedData);
 842     ok(bindinfo.dwOptions == 0x80000 || bindinfo.dwOptions == 0x4080000,
 843        "bindinfo.dwOptions=%x\n", bindinfo.dwOptions);
 844     ok(bindinfo.dwOptionsFlags == 0, "bindinfo.dwOptionsFlags=%d\n", bindinfo.dwOptionsFlags);
 845     /* TODO: test dwCodePage */
 846     /* TODO: test securityAttributes */
 847     ok(IsEqualGUID(&IID_NULL, &bindinfo.iid), "unexpected bindinfo.iid\n");
 848     ok(bindinfo.pUnk == NULL, "bindinfo.pUnk=%p\n", bindinfo.pUnk);
 849     ok(bindinfo.dwReserved == 0, "bindinfo.dwReserved=%d\n", bindinfo.dwReserved);
 850
 851     hres = IBindStatusCallback_OnStartBinding(callback, 0, &Binding);
 852     ok(hres == S_OK, "OnStartBinding failed: %08x\n", hres);
 853
 854     hres = IBindStatusCallback_OnProgress(callback, 0, 0, BINDSTATUS_MIMETYPEAVAILABLE,
 855                                           wszTextHtml);
 856     ok(hres == S_OK, "OnProgress(BINDSTATUS_MIMETYPEAVAILABLE) failed: %08x\n", hres);
 857
 858     hres = IBindStatusCallback_OnProgress(callback, sizeof(html_page)-1, sizeof(html_page)-1,
 859                                           BINDSTATUS_BEGINDOWNLOADDATA, doc_url);
 860     ok(hres == S_OK, "OnProgress(BINDSTATUS_BEGINDOWNLOADDATA) failed: %08x\n", hres);
 861
 862     SET_EXPECT(Read);
 863     stgmedium.tymed = TYMED_ISTREAM;
 864     U(stgmedium).pstm = &Stream;
 865     stgmedium.pUnkForRelease = (IUnknown*)iface;
 866     hres = IBindStatusCallback_OnDataAvailable(callback,
 867             BSCF_FIRSTDATANOTIFICATION|BSCF_LASTDATANOTIFICATION,
 868             sizeof(html_page)-1, &formatetc, &stgmedium);
 869     ok(hres == S_OK, "OnDataAvailable failed: %08x\n", hres);
 870     CHECK_CALLED(Read);
 871
 872     hres = IBindStatusCallback_OnProgress(callback, sizeof(html_page)-1, sizeof(html_page)-1,
 873             BINDSTATUS_ENDDOWNLOADDATA, NULL);
 874     ok(hres == S_OK, "OnProgress(BINDSTATUS_ENDDOWNLOADDATA) failed: %08x\n", hres);
 875
 876     hres = IBindStatusCallback_OnStopBinding(callback, S_OK, NULL);
 877     ok(hres == S_OK, "OnStopBinding failed: %08x\n", hres);
 878
 879     IBindStatusCallback_Release(callback);
 880
 881     return S_OK;
 882 }
 883
 884 static HRESULT WINAPI Moniker_Reduce(IMoniker *iface, IBindCtx *pbc, DWORD dwReduceHowFar,
 885         IMoniker **ppmkToLeft, IMoniker **ppmkReduced)
 886 {
 887     ok(0, "unexpected call\n");
 888     return E_NOTIMPL;
 889 }
 890
 891 static HRESULT WINAPI Moniker_ComposeWith(IMoniker *iface, IMoniker *pmkRight,
 892         BOOL fOnlyIfNotGeneric, IMoniker **ppnkComposite)
 893 {
 894     ok(0, "unexpected call\n");
 895     return E_NOTIMPL;
 896 }
 897
 898 static HRESULT WINAPI Moniker_Enum(IMoniker *iface, BOOL fForwrd, IEnumMoniker **ppenumMoniker)
 899 {
 900     ok(0, "unexpected call\n");
 901     return E_NOTIMPL;
 902 }
 903
 904 static HRESULT WINAPI Moniker_IsEqual(IMoniker *iface, IMoniker *pmkOtherMoniker)
 905 {
 906     ok(0, "unexpected call\n");
 907     return E_NOTIMPL;
 908 }
 909
 910 static HRESULT WINAPI Moniker_Hash(IMoniker *iface, DWORD *pdwHash)
 911 {
 912     ok(0, "unexpected call\n");
 913     return E_NOTIMPL;
 914 }
 915
 916 static HRESULT WINAPI Moniker_IsRunning(IMoniker *iface, IBindCtx *pbc, IMoniker *pmkToLeft,
 917         IMoniker *pmkNewlyRunning)
 918 {
 919     ok(0, "unexpected call\n");
 920     return E_NOTIMPL;
 921 }
 922
 923 static HRESULT WINAPI Moniker_GetTimeOfLastChange(IMoniker *iface, IBindCtx *pbc,
 924         IMoniker *pmkToLeft, FILETIME *pFileTime)
 925 {
 926     ok(0, "unexpected call\n");
 927     return E_NOTIMPL;
 928 }
 929
 930 static HRESULT WINAPI Moniker_Inverse(IMoniker *iface, IMoniker **ppmk)
 931 {
 932     ok(0, "unexpected call\n");
 933     return E_NOTIMPL;
 934 }
 935
 936 static HRESULT WINAPI Moniker_CommonPrefixWith(IMoniker *iface, IMoniker *pmkOther,
 937         IMoniker **ppmkPrefix)
 938 {
 939     ok(0, "unexpected call\n");
 940     return E_NOTIMPL;
 941 }
 942
 943 static HRESULT WINAPI Moniker_RelativePathTo(IMoniker *iface, IMoniker *pmkOther,
 944         IMoniker **pmkRelPath)
 945 {
 946     ok(0, "unexpected call\n");
 947     return E_NOTIMPL;
 948 }
 949
 950 static HRESULT WINAPI Moniker_GetDisplayName(IMoniker *iface, IBindCtx *pbc,
 951         IMoniker *pmkToLeft, LPOLESTR *ppszDisplayName)
 952 {
 953     CHECK_EXPECT2(GetDisplayName);
 954
 955     /* ok(pbc != NULL, "pbc == NULL\n"); */
 956     ok(pmkToLeft == NULL, "pmkToLeft=%p\n", pmkToLeft);
 957     ok(ppszDisplayName != NULL, "ppszDisplayName == NULL\n");
 958
 959     *ppszDisplayName = CoTaskMemAlloc(sizeof(doc_url));
 960     memcpy(*ppszDisplayName, doc_url, sizeof(doc_url));
 961
 962     return S_OK;
 963 }
 964
 965 static HRESULT WINAPI Moniker_ParseDisplayName(IMoniker *iface, IBindCtx *pbc,
 966         IMoniker *pmkToLeft, LPOLESTR pszDisplayName, ULONG *pchEaten, IMoniker **ppmkOut)
 967 {
 968     ok(0, "unexpected call\n");
 969     return E_NOTIMPL;
 970 }
 971
 972 static HRESULT WINAPI Moniker_IsSystemMoniker(IMoniker *iface, DWORD *pdwMksys)
 973 {
 974     ok(0, "unexpected call\n");
 975     return E_NOTIMPL;
 976 }
 977
 978 static const IMonikerVtbl MonikerVtbl = {
 979     Moniker_QueryInterface,
 980     Moniker_AddRef,
 981     Moniker_Release,
 982     Moniker_GetClassID,
 983     Moniker_IsDirty,
 984     Moniker_Load,
 985     Moniker_Save,
 986     Moniker_GetSizeMax,
 987     Moniker_BindToObject,
 988     Moniker_BindToStorage,
 989     Moniker_Reduce,
 990     Moniker_ComposeWith,
 991     Moniker_Enum,
 992     Moniker_IsEqual,
 993     Moniker_Hash,
 994     Moniker_IsRunning,
 995     Moniker_GetTimeOfLastChange,
 996     Moniker_Inverse,
 997     Moniker_CommonPrefixWith,
 998     Moniker_RelativePathTo,
 999     Moniker_GetDisplayName,
1000     Moniker_ParseDisplayName,
1001     Moniker_IsSystemMoniker
1002 };
1003
1004 static IMoniker Moniker = { &MonikerVtbl };
1005
1006 static HRESULT WINAPI OleContainer_QueryInterface(IOleContainer *iface, REFIID riid, void **ppv)
1007 {
1008     return QueryInterface(riid, ppv);
1009 }
1010
1011 static ULONG WINAPI OleContainer_AddRef(IOleContainer *iface)
1012 {
1013     return 2;
1014 }
1015
1016 static ULONG WINAPI OleContainer_Release(IOleContainer *iface)
1017 {
1018     return 1;
1019 }
1020
1021 static HRESULT WINAPI OleContainer_ParseDisplayName(IOleContainer *iface, IBindCtx *pbc,
1022         LPOLESTR pszDiaplayName, ULONG *pchEaten, IMoniker **ppmkOut)
1023 {
1024     ok(0, "unexpected call\n");
1025     return E_NOTIMPL;
1026 }
1027
1028 static HRESULT WINAPI OleContainer_EnumObjects(IOleContainer *iface, DWORD grfFlags,
1029         IEnumUnknown **ppenum)
1030 {
1031     ok(0, "unexpected call\n");
1032     return E_NOTIMPL;
1033 }
1034
1035 static HRESULT WINAPI OleContainer_LockContainer(IOleContainer *iface, BOOL fLock)
1036 {
1037     CHECK_EXPECT(LockContainer);
1038     ok(expect_LockContainer_fLock == fLock, "fLock=%x, expected %x\n", fLock, expect_LockContainer_fLock);
1039     return S_OK;
1040 }
1041
1042 static const IOleContainerVtbl OleContainerVtbl = {
1043     OleContainer_QueryInterface,
1044     OleContainer_AddRef,
1045     OleContainer_Release,
1046     OleContainer_ParseDisplayName,
1047     OleContainer_EnumObjects,
1048     OleContainer_LockContainer
1049 };
1050
1051 static IOleContainer OleContainer = { &OleContainerVtbl };
1052
1053 static HRESULT WINAPI InPlaceFrame_QueryInterface(IOleInPlaceFrame *iface, REFIID riid, void **ppv)
1054 {
1055     return QueryInterface(riid, ppv);
1056 }
1057
1058 static ULONG WINAPI InPlaceFrame_AddRef(IOleInPlaceFrame *iface)
1059 {
1060     return 2;
1061 }
1062
1063 static ULONG WINAPI InPlaceFrame_Release(IOleInPlaceFrame *iface)
1064 {
1065     return 1;
1066 }
1067
1068 static HRESULT WINAPI InPlaceFrame_GetWindow(IOleInPlaceFrame *iface, HWND *phwnd)
1069 {
1070     ok(0, "unexpected call\n");
1071     return E_NOTIMPL;
1072 }
1073
1074 static HRESULT WINAPI InPlaceFrame_ContextSensitiveHelp(IOleInPlaceFrame *iface, BOOL fEnterMode)
1075 {
1076     ok(0, "unexpected call\n");
1077     return E_NOTIMPL;
1078 }
1079
1080 static HRESULT WINAPI InPlaceFrame_GetBorder(IOleInPlaceFrame *iface, LPRECT lprectBorder)
1081 {
1082     ok(0, "unexpected call\n");
1083     return E_NOTIMPL;
1084 }
1085
1086 static HRESULT WINAPI InPlaceFrame_RequestBorderSpace(IOleInPlaceFrame *iface,
1087         LPCBORDERWIDTHS pborderwidths)
1088 {
1089     ok(0, "unexpected call\n");
1090     return E_NOTIMPL;
1091 }
1092
1093 static HRESULT WINAPI InPlaceFrame_SetBorderSpace(IOleInPlaceFrame *iface,
1094         LPCBORDERWIDTHS pborderwidths)
1095 {
1096     ok(0, "unexpected call\n");
1097     return E_NOTIMPL;
1098 }
1099
1100 static HRESULT WINAPI InPlaceFrame_SetActiveObject(IOleInPlaceFrame *iface,
1101         IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
1102 {
1103     static const WCHAR wszHTML_Document[] =
1104         {'H','T','M','L',' ','D','o','c','u','m','e','n','t',0};
1105
1106     CHECK_EXPECT2(SetActiveObject);
1107
1108     if(expect_SetActiveObject_active) {
1109         ok(pActiveObject != NULL, "pActiveObject = NULL\n");
1110         if(pActiveObject && PRIMARYLANGID(GetSystemDefaultLangID()) == LANG_ENGLISH)
1111             ok(!lstrcmpW(wszHTML_Document, pszObjName), "pszObjName != \"HTML Document\"\n");
1112     }else {
1113         ok(pActiveObject == NULL, "pActiveObject=%p, expected NULL\n", pActiveObject);
1114         ok(pszObjName == NULL, "pszObjName=%p, expected NULL\n", pszObjName);
1115     }
1116
1117     return S_OK;
1118 }
1119
1120 static HRESULT WINAPI InPlaceFrame_InsertMenus(IOleInPlaceFrame *iface, HMENU hmenuShared,
1121         LPOLEMENUGROUPWIDTHS lpMenuWidths)
1122 {
1123     ok(0, "unexpected call\n");
1124     return E_NOTIMPL;
1125 }
1126
1127 static HRESULT WINAPI InPlaceFrame_SetMenu(IOleInPlaceFrame *iface, HMENU hmenuShared,
1128         HOLEMENU holemenu, HWND hwndActiveObject)
1129 {
1130     ok(0, "unexpected call\n");
1131     return E_NOTIMPL;
1132 }
1133
1134 static HRESULT WINAPI InPlaceFrame_RemoveMenus(IOleInPlaceFrame *iface, HMENU hmenuShared)
1135 {
1136     ok(0, "unexpected call\n");
1137     return E_NOTIMPL;
1138 }
1139
1140 static HRESULT WINAPI InPlaceFrame_SetStatusText(IOleInPlaceFrame *iface, LPCOLESTR pszStatusText)
1141 {
1142     CHECK_EXPECT2(SetStatusText);
1143     if(!expect_status_text)
1144         ok(pszStatusText == NULL, "pszStatusText=%p, expected NULL\n", pszStatusText);
1145     return S_OK;
1146 }
1147
1148 static HRESULT WINAPI InPlaceFrame_EnableModeless(IOleInPlaceFrame *iface, BOOL fEnable)
1149 {
1150     ok(0, "unexpected call\n");
1151     return E_NOTIMPL;
1152 }
1153
1154 static HRESULT WINAPI InPlaceFrame_TranslateAccelerator(IOleInPlaceFrame *iface, LPMSG lpmsg, WORD wID)
1155 {
1156     ok(0, "unexpected call\n");
1157     return E_NOTIMPL;
1158 }
1159
1160 static const IOleInPlaceFrameVtbl InPlaceFrameVtbl = {
1161     InPlaceFrame_QueryInterface,
1162     InPlaceFrame_AddRef,
1163     InPlaceFrame_Release,
1164     InPlaceFrame_GetWindow,
1165     InPlaceFrame_ContextSensitiveHelp,
1166     InPlaceFrame_GetBorder,
1167     InPlaceFrame_RequestBorderSpace,
1168     InPlaceFrame_SetBorderSpace,
1169     InPlaceFrame_SetActiveObject,
1170     InPlaceFrame_InsertMenus,
1171     InPlaceFrame_SetMenu,
1172     InPlaceFrame_RemoveMenus,
1173     InPlaceFrame_SetStatusText,
1174     InPlaceFrame_EnableModeless,
1175     InPlaceFrame_TranslateAccelerator
1176 };
1177
1178 static IOleInPlaceFrame InPlaceFrame = { &InPlaceFrameVtbl };
1179
1180 static HRESULT WINAPI InPlaceSite_QueryInterface(IOleInPlaceSite *iface, REFIID riid, void **ppv)
1181 {
1182     return QueryInterface(riid, ppv);
1183 }
1184
1185 static ULONG WINAPI InPlaceSite_AddRef(IOleInPlaceSite *iface)
1186 {
1187     return 2;
1188 }
1189
1190 static ULONG WINAPI InPlaceSite_Release(IOleInPlaceSite *iface)
1191 {
1192     return 1;
1193 }
1194
1195 static HRESULT WINAPI InPlaceSite_GetWindow(IOleInPlaceSite *iface, HWND *phwnd)
1196 {
1197     CHECK_EXPECT(GetWindow);
1198     ok(phwnd != NULL, "phwnd = NULL\n");
1199     *phwnd = container_hwnd;
1200     return S_OK;
1201 }
1202
1203 static HRESULT WINAPI InPlaceSite_ContextSensitiveHelp(IOleInPlaceSite *iface, BOOL fEnterMode)
1204 {
1205     ok(0, "unexpected call\n");
1206     return E_NOTIMPL;
1207 }
1208
1209 static HRESULT WINAPI InPlaceSite_CanInPlaceActivate(IOleInPlaceSite *iface)
1210 {
1211     CHECK_EXPECT(CanInPlaceActivate);
1212     return S_OK;
1213 }
1214
1215 static HRESULT WINAPI InPlaceSite_OnInPlaceActivate(IOleInPlaceSite *iface)
1216 {
1217     CHECK_EXPECT(OnInPlaceActivate);
1218     return S_OK;
1219 }
1220
1221 static HRESULT WINAPI InPlaceSite_OnUIActivate(IOleInPlaceSite *iface)
1222 {
1223     CHECK_EXPECT(OnUIActivate);
1224     return S_OK;
1225 }
1226
1227 static HRESULT WINAPI InPlaceSite_GetWindowContext(IOleInPlaceSite *iface,
1228         IOleInPlaceFrame **ppFrame, IOleInPlaceUIWindow **ppDoc, LPRECT lprcPosRect,
1229         LPRECT lprcClipRect, LPOLEINPLACEFRAMEINFO lpFrameInfo)
1230 {
1231     static const RECT rect = {0,0,500,500};
1232
1233     CHECK_EXPECT(GetWindowContext);
1234
1235     ok(ppFrame != NULL, "ppFrame = NULL\n");
1236     if(ppFrame)
1237         *ppFrame = &InPlaceFrame;
1238     ok(ppDoc != NULL, "ppDoc = NULL\n");
1239     if(ppDoc)
1240         *ppDoc = NULL;
1241     ok(lprcPosRect != NULL, "lprcPosRect = NULL\n");
1242     if(lprcPosRect)
1243         memcpy(lprcPosRect, &rect, sizeof(RECT));
1244     ok(lprcClipRect != NULL, "lprcClipRect = NULL\n");
1245     if(lprcClipRect)
1246         memcpy(lprcClipRect, &rect, sizeof(RECT));
1247     ok(lpFrameInfo != NULL, "lpFrameInfo = NULL\n");
1248     if(lpFrameInfo) {
1249         lpFrameInfo->cb = sizeof(*lpFrameInfo);
1250         lpFrameInfo->fMDIApp = FALSE;
1251         lpFrameInfo->hwndFrame = container_hwnd;
1252         lpFrameInfo->haccel = NULL;
1253         lpFrameInfo->cAccelEntries = 0;
1254     }
1255
1256     return S_OK;
1257 }
1258
1259 static HRESULT WINAPI InPlaceSite_Scroll(IOleInPlaceSite *iface, SIZE scrollExtant)
1260 {
1261     ok(0, "unexpected call\n");
1262     return E_NOTIMPL;
1263 }
1264
1265 static HRESULT WINAPI InPlaceSite_OnUIDeactivate(IOleInPlaceSite *iface, BOOL fUndoable)
1266 {
1267     CHECK_EXPECT(OnUIDeactivate);
1268     ok(!fUndoable, "fUndoable = TRUE\n");
1269     return S_OK;
1270 }
1271
1272 static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivate(IOleInPlaceSite *iface)
1273 {
1274     CHECK_EXPECT(OnInPlaceDeactivate);
1275     return S_OK;
1276 }
1277
1278 static HRESULT WINAPI InPlaceSite_DiscardUndoState(IOleInPlaceSite *iface)
1279 {
1280     ok(0, "unexpected call\n");
1281     return E_NOTIMPL;
1282 }
1283
1284 static HRESULT WINAPI InPlaceSite_DeactivateAndUndo(IOleInPlaceSite *iface)
1285 {
1286     ok(0, "unexpected call\n");
1287     return E_NOTIMPL;
1288 }
1289
1290 static HRESULT WINAPI InPlaceSite_OnPosRectChange(IOleInPlaceSite *iface, LPCRECT lprcPosRect)
1291 {
1292     ok(0, "unexpected call\n");
1293     return E_NOTIMPL;
1294 }
1295
1296 static const IOleInPlaceSiteVtbl InPlaceSiteVtbl = {
1297     InPlaceSite_QueryInterface,
1298     InPlaceSite_AddRef,
1299     InPlaceSite_Release,
1300     InPlaceSite_GetWindow,
1301     InPlaceSite_ContextSensitiveHelp,
1302     InPlaceSite_CanInPlaceActivate,
1303     InPlaceSite_OnInPlaceActivate,
1304     InPlaceSite_OnUIActivate,
1305     InPlaceSite_GetWindowContext,
1306     InPlaceSite_Scroll,
1307     InPlaceSite_OnUIDeactivate,
1308     InPlaceSite_OnInPlaceDeactivate,
1309     InPlaceSite_DiscardUndoState,
1310     InPlaceSite_DeactivateAndUndo,
1311     InPlaceSite_OnPosRectChange
1312 };
1313
1314 static IOleInPlaceSite InPlaceSite = { &InPlaceSiteVtbl };
1315
1316 static HRESULT WINAPI ClientSite_QueryInterface(IOleClientSite *iface, REFIID riid, void **ppv)
1317 {
1318     return QueryInterface(riid, ppv);
1319 }
1320
1321 static ULONG WINAPI ClientSite_AddRef(IOleClientSite *iface)
1322 {
1323     return 2;
1324 }
1325
1326 static ULONG WINAPI ClientSite_Release(IOleClientSite *iface)
1327 {
1328     return 1;
1329 }
1330
1331 static HRESULT WINAPI ClientSite_SaveObject(IOleClientSite *iface)
1332 {
1333     ok(0, "unexpected call\n");
1334     return E_NOTIMPL;
1335 }
1336
1337 static HRESULT WINAPI ClientSite_GetMoniker(IOleClientSite *iface, DWORD dwAsign, DWORD dwWhichMoniker,
1338         IMoniker **ppmon)
1339 {
1340     ok(0, "unexpected call\n");
1341     return E_NOTIMPL;
1342 }
1343
1344 static HRESULT WINAPI ClientSite_GetContainer(IOleClientSite *iface, IOleContainer **ppContainer)
1345 {
1346     CHECK_EXPECT(GetContainer);
1347     ok(ppContainer != NULL, "ppContainer = NULL\n");
1348     *ppContainer = &OleContainer;
1349     return S_OK;
1350 }
1351
1352 static HRESULT WINAPI ClientSite_ShowObject(IOleClientSite *iface)
1353 {
1354     ok(0, "unexpected call\n");
1355     return E_NOTIMPL;
1356 }
1357
1358 static HRESULT WINAPI ClientSite_OnShowWindow(IOleClientSite *iface, BOOL fShow)
1359 {
1360     ok(0, "unexpected call\n");
1361     return E_NOTIMPL;
1362 }
1363
1364 static HRESULT WINAPI ClientSite_RequestNewObjectLayout(IOleClientSite *iface)
1365 {
1366     ok(0, "unexpected call\n");
1367     return E_NOTIMPL;
1368 }
1369
1370 static const IOleClientSiteVtbl ClientSiteVtbl = {
1371     ClientSite_QueryInterface,
1372     ClientSite_AddRef,
1373     ClientSite_Release,
1374     ClientSite_SaveObject,
1375     ClientSite_GetMoniker,
1376     ClientSite_GetContainer,
1377     ClientSite_ShowObject,
1378     ClientSite_OnShowWindow,
1379     ClientSite_RequestNewObjectLayout
1380 };
1381
1382 static IOleClientSite ClientSite = { &ClientSiteVtbl };
1383
1384 static HRESULT WINAPI DocumentSite_QueryInterface(IOleDocumentSite *iface, REFIID riid, void **ppv)
1385 {
1386     return QueryInterface(riid, ppv);
1387 }
1388
1389 static ULONG WINAPI DocumentSite_AddRef(IOleDocumentSite *iface)
1390 {
1391     return 2;
1392 }
1393
1394 static ULONG WINAPI DocumentSite_Release(IOleDocumentSite *iface)
1395 {
1396     return 1;
1397 }
1398
1399 static BOOL call_UIActivate = TRUE;
1400 static HRESULT WINAPI DocumentSite_ActivateMe(IOleDocumentSite *iface, IOleDocumentView *pViewToActivate)
1401 {
1402     IOleDocument *document;
1403     HRESULT hres;
1404
1405     CHECK_EXPECT(ActivateMe);
1406     ok(pViewToActivate != NULL, "pViewToActivate = NULL\n");
1407
1408     hres = IOleDocumentView_QueryInterface(pViewToActivate, &IID_IOleDocument, (void**)&document);
1409     ok(hres == S_OK, "could not get IOleDocument: %08x\n", hres);
1410
1411     if(SUCCEEDED(hres)) {
1412         hres = IOleDocument_CreateView(document, &InPlaceSite, NULL, 0, &view);
1413         ok(hres == S_OK, "CreateView failed: %08x\n", hres);
1414
1415         if(SUCCEEDED(hres)) {
1416             IOleInPlaceActiveObject *activeobj = NULL;
1417             IOleInPlaceSite *inplacesite = NULL;
1418             HWND tmp_hwnd = NULL;
1419             static RECT rect = {0,0,400,500};
1420
1421             hres = IOleDocumentView_GetInPlaceSite(view, &inplacesite);
1422             ok(hres == S_OK, "GetInPlaceSite failed: %08x\n", hres);
1423             ok(inplacesite == &InPlaceSite, "inplacesite=%p, expected %p\n",
1424                     inplacesite, &InPlaceSite);
1425
1426             hres = IOleDocumentView_SetInPlaceSite(view, &InPlaceSite);
1427             ok(hres == S_OK, "SetInPlaceSite failed: %08x\n", hres);
1428
1429             hres = IOleDocumentView_GetInPlaceSite(view, &inplacesite);
1430             ok(hres == S_OK, "GetInPlaceSite failed: %08x\n", hres);
1431             ok(inplacesite == &InPlaceSite, "inplacesite=%p, expected %p\n",
1432                     inplacesite, &InPlaceSite);
1433
1434             hres = IOleDocumentView_QueryInterface(view, &IID_IOleInPlaceActiveObject, (void**)&activeobj);
1435             ok(hres == S_OK, "Could not get IOleInPlaceActiveObject: %08x\n", hres);
1436
1437             if(activeobj) {
1438                 IOleInPlaceActiveObject_GetWindow(activeobj, &hwnd);
1439                 ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1440                 ok(hwnd == NULL, "hwnd=%p, expeted NULL\n", hwnd);
1441             }
1442
1443             if(call_UIActivate) {
1444                 SET_EXPECT(CanInPlaceActivate);
1445                 SET_EXPECT(GetWindowContext);
1446                 SET_EXPECT(GetWindow);
1447                 SET_EXPECT(OnInPlaceActivate);
1448                 SET_EXPECT(SetStatusText);
1449                 SET_EXPECT(Exec_SETPROGRESSMAX);
1450                 SET_EXPECT(Exec_SETPROGRESSPOS);
1451                 SET_EXPECT(OnUIActivate);
1452                 SET_EXPECT(SetActiveObject);
1453                 SET_EXPECT(ShowUI);
1454                 expect_SetActiveObject_active = TRUE;
1455                 expect_status_text = NULL;
1456
1457                 hres = IOleDocumentView_UIActivate(view, TRUE);
1458
1459                 if(FAILED(hres)) {
1460                     trace("UIActivate failed: %08x\n", hres);
1461                     return hres;
1462                 }
1463                 ok(hres == S_OK, "UIActivate failed: %08x\n", hres);
1464
1465                 CHECK_CALLED(CanInPlaceActivate);
1466                 CHECK_CALLED(GetWindowContext);
1467                 CHECK_CALLED(GetWindow);
1468                 CHECK_CALLED(OnInPlaceActivate);
1469                 CHECK_CALLED(SetStatusText);
1470                 CHECK_CALLED(Exec_SETPROGRESSMAX);
1471                 CHECK_CALLED(Exec_SETPROGRESSPOS);
1472                 CHECK_CALLED(OnUIActivate);
1473                 CHECK_CALLED(SetActiveObject);
1474                 CHECK_CALLED(ShowUI);
1475
1476                 if(activeobj) {
1477                     hres = IOleInPlaceActiveObject_GetWindow(activeobj, &hwnd);
1478                     ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1479                     ok(hwnd != NULL, "hwnd == NULL\n");
1480                     if(last_hwnd)
1481                         ok(hwnd == last_hwnd, "hwnd != last_hwnd\n");
1482                 }
1483
1484                 hres = IOleDocumentView_UIActivate(view, TRUE);
1485                 ok(hres == S_OK, "UIActivate failed: %08x\n", hres);
1486
1487                 if(activeobj) {
1488                     hres = IOleInPlaceActiveObject_GetWindow(activeobj, &tmp_hwnd);
1489                     ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1490                     ok(tmp_hwnd == hwnd, "tmp_hwnd=%p, expected %p\n", tmp_hwnd, hwnd);
1491                 }
1492             }
1493
1494             hres = IOleDocumentView_SetRect(view, &rect);
1495             ok(hres == S_OK, "SetRect failed: %08x\n", hres);
1496
1497             if(call_UIActivate) {
1498                 hres = IOleDocumentView_Show(view, TRUE);
1499                 ok(hres == S_OK, "Show failed: %08x\n", hres);
1500             }else {
1501                 SET_EXPECT(CanInPlaceActivate);
1502                 SET_EXPECT(GetWindowContext);
1503                 SET_EXPECT(GetWindow);
1504                 SET_EXPECT(OnInPlaceActivate);
1505                 SET_EXPECT(SetStatusText);
1506                 SET_EXPECT(Exec_SETPROGRESSMAX);
1507                 SET_EXPECT(Exec_SETPROGRESSPOS);
1508                 SET_EXPECT(OnUIActivate);
1509                 expect_status_text = (load_state == LD_COMPLETE ? (LPCOLESTR)0xdeadbeef : NULL);
1510
1511                 hres = IOleDocumentView_Show(view, TRUE);
1512                 ok(hres == S_OK, "Show failed: %08x\n", hres);
1513
1514                 CHECK_CALLED(CanInPlaceActivate);
1515                 CHECK_CALLED(GetWindowContext);
1516                 CHECK_CALLED(GetWindow);
1517                 CHECK_CALLED(OnInPlaceActivate);
1518                 CHECK_CALLED(SetStatusText);
1519                 CHECK_CALLED(Exec_SETPROGRESSMAX);
1520                 CHECK_CALLED(Exec_SETPROGRESSPOS);
1521
1522                 if(activeobj) {
1523                     hres = IOleInPlaceActiveObject_GetWindow(activeobj, &hwnd);
1524                     ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1525                     ok(hwnd != NULL, "hwnd == NULL\n");
1526                     if(last_hwnd)
1527                         ok(hwnd == last_hwnd, "hwnd != last_hwnd\n");
1528                 }
1529             }
1530
1531             test_timer(EXPECT_UPDATEUI | ((load_state == LD_LOADING) ? EXPECT_SETTITLE : 0));
1532
1533             if(activeobj)
1534                 IOleInPlaceActiveObject_Release(activeobj);
1535         }
1536
1537         IOleDocument_Release(document);
1538     }
1539
1540     return S_OK;
1541 }
1542
1543 static const IOleDocumentSiteVtbl DocumentSiteVtbl = {
1544     DocumentSite_QueryInterface,
1545     DocumentSite_AddRef,
1546     DocumentSite_Release,
1547     DocumentSite_ActivateMe
1548 };
1549
1550 static IOleDocumentSite DocumentSite = { &DocumentSiteVtbl };
1551
1552 static HRESULT WINAPI DocHostUIHandler_QueryInterface(IDocHostUIHandler2 *iface, REFIID riid, void **ppv)
1553 {
1554     return QueryInterface(riid, ppv);
1555 }
1556
1557 static ULONG WINAPI DocHostUIHandler_AddRef(IDocHostUIHandler2 *iface)
1558 {
1559     return 2;
1560 }
1561
1562 static ULONG WINAPI DocHostUIHandler_Release(IDocHostUIHandler2 *iface)
1563 {
1564     return 1;
1565 }
1566
1567 static HRESULT WINAPI DocHostUIHandler_ShowContextMenu(IDocHostUIHandler2 *iface, DWORD dwID, POINT *ppt,
1568         IUnknown *pcmdtReserved, IDispatch *pdicpReserved)
1569 {
1570     ok(0, "unexpected call\n");
1571     return E_NOTIMPL;
1572 }
1573
1574 static HRESULT WINAPI DocHostUIHandler_GetHostInfo(IDocHostUIHandler2 *iface, DOCHOSTUIINFO *pInfo)
1575 {
1576     CHECK_EXPECT(GetHostInfo);
1577     ok(pInfo != NULL, "pInfo=NULL\n");
1578     if(pInfo) {
1579         ok(pInfo->cbSize == sizeof(DOCHOSTUIINFO), "pInfo->cbSize=%u\n", pInfo->cbSize);
1580         ok(!pInfo->dwFlags, "pInfo->dwFlags=%08x, expected 0\n", pInfo->dwFlags);
1581         pInfo->dwFlags = DOCHOSTUIFLAG_DISABLE_HELP_MENU | DOCHOSTUIFLAG_DISABLE_SCRIPT_INACTIVE
1582             | DOCHOSTUIFLAG_ACTIVATE_CLIENTHIT_ONLY | DOCHOSTUIFLAG_ENABLE_INPLACE_NAVIGATION
1583             | DOCHOSTUIFLAG_IME_ENABLE_RECONVERSION;
1584         ok(!pInfo->dwDoubleClick, "pInfo->dwDoubleClick=%08x, expected 0\n", pInfo->dwDoubleClick);
1585         ok(!pInfo->pchHostCss, "pInfo->pchHostCss=%p, expected NULL\n", pInfo->pchHostCss);
1586         ok(!pInfo->pchHostNS, "pInfo->pchhostNS=%p, expected NULL\n", pInfo->pchHostNS);
1587     }
1588     return S_OK;
1589 }
1590
1591 static HRESULT WINAPI DocHostUIHandler_ShowUI(IDocHostUIHandler2 *iface, DWORD dwID,
1592         IOleInPlaceActiveObject *pActiveObject, IOleCommandTarget *pCommandTarget,
1593         IOleInPlaceFrame *pFrame, IOleInPlaceUIWindow *pDoc)
1594 {
1595     CHECK_EXPECT(ShowUI);
1596
1597     ok(dwID == DOCHOSTUITYPE_BROWSE, "dwID=%d, expected DOCHOSTUITYPE_BROWSE\n", dwID);
1598     ok(pActiveObject != NULL, "pActiveObject = NULL\n");
1599     ok(pCommandTarget != NULL, "pCommandTarget = NULL\n");
1600     ok(pFrame == &InPlaceFrame, "pFrame=%p, expected %p\n", pFrame, &InPlaceFrame);
1601     ok(pDoc == NULL, "pDoc=%p, expected NULL\n", pDoc);
1602
1603     return S_OK;
1604 }
1605
1606 static HRESULT WINAPI DocHostUIHandler_HideUI(IDocHostUIHandler2 *iface)
1607 {
1608     CHECK_EXPECT(HideUI);
1609     return S_OK;
1610 }
1611
1612 static HRESULT WINAPI DocHostUIHandler_UpdateUI(IDocHostUIHandler2 *iface)
1613 {
1614     CHECK_EXPECT(UpdateUI);
1615     return S_OK;
1616 }
1617
1618 static HRESULT WINAPI DocHostUIHandler_EnableModeless(IDocHostUIHandler2 *iface, BOOL fEnable)
1619 {
1620     ok(0, "unexpected call\n");
1621     return E_NOTIMPL;
1622 }
1623
1624 static HRESULT WINAPI DocHostUIHandler_OnDocWindowActivate(IDocHostUIHandler2 *iface, BOOL fActivate)
1625 {
1626     ok(0, "unexpected call\n");
1627     return E_NOTIMPL;
1628 }
1629
1630 static BOOL expect_OnFrameWindowActivate_fActivate;
1631 static HRESULT WINAPI DocHostUIHandler_OnFrameWindowActivate(IDocHostUIHandler2 *iface, BOOL fActivate)
1632 {
1633     CHECK_EXPECT2(OnFrameWindowActivate);
1634     ok(fActivate == expect_OnFrameWindowActivate_fActivate, "fActivate=%x\n", fActivate);
1635     return S_OK;
1636 }
1637
1638 static HRESULT WINAPI DocHostUIHandler_ResizeBorder(IDocHostUIHandler2 *iface, LPCRECT prcBorder,
1639         IOleInPlaceUIWindow *pUIWindow, BOOL fRameWindow)
1640 {
1641     ok(0, "unexpected call\n");
1642     return E_NOTIMPL;
1643 }
1644
1645 static HRESULT WINAPI DocHostUIHandler_TranslateAccelerator(IDocHostUIHandler2 *iface, LPMSG lpMsg,
1646         const GUID *pguidCmdGroup, DWORD nCmdID)
1647 {
1648     ok(0, "unexpected call\n");
1649     return E_NOTIMPL;
1650 }
1651
1652 static HRESULT WINAPI DocHostUIHandler_GetOptionKeyPath(IDocHostUIHandler2 *iface,
1653         LPOLESTR *pchKey, DWORD dw)
1654 {
1655     CHECK_EXPECT(GetOptionKeyPath);
1656     ok(pchKey != NULL, "pchKey = NULL\n");
1657     ok(!dw, "dw=%d, expected 0\n", dw);
1658     if(pchKey)
1659         ok(!*pchKey, "*pchKey=%p, expected NULL\n", *pchKey);
1660     return S_OK;
1661 }
1662
1663 static HRESULT WINAPI DocHostUIHandler_GetDropTarget(IDocHostUIHandler2 *iface,
1664         IDropTarget *pDropTarget, IDropTarget **ppDropTarget)
1665 {
1666     CHECK_EXPECT(GetDropTarget);
1667     /* TODO */
1668     return E_NOTIMPL;
1669 }
1670
1671 static HRESULT WINAPI DocHostUIHandler_GetExternal(IDocHostUIHandler2 *iface, IDispatch **ppDispatch)
1672 {
1673     ok(0, "unexpected call\n");
1674     return E_NOTIMPL;
1675 }
1676
1677 static HRESULT WINAPI DocHostUIHandler_TranslateUrl(IDocHostUIHandler2 *iface, DWORD dwTranslate,
1678         OLECHAR *pchURLIn, OLECHAR **ppchURLOut)
1679 {
1680     ok(0, "unexpected call\n");
1681     return E_NOTIMPL;
1682 }
1683
1684 static HRESULT WINAPI DocHostUIHandler_FilterDataObject(IDocHostUIHandler2 *iface, IDataObject *pDO,
1685         IDataObject **ppPORet)
1686 {
1687     ok(0, "unexpected call\n");
1688     return E_NOTIMPL;
1689 }
1690
1691 static HRESULT WINAPI DocHostUIHandler_GetOverrideKeyPath(IDocHostUIHandler2 *iface,
1692         LPOLESTR *pchKey, DWORD dw)
1693 {
1694     CHECK_EXPECT(GetOverrideKeyPath);
1695     ok(pchKey != NULL, "pchKey = NULL\n");
1696     if(pchKey)
1697         ok(!*pchKey, "*pchKey=%p, expected NULL\n", *pchKey);
1698     ok(!dw, "dw=%d, xepected 0\n", dw);
1699     return S_OK;
1700 }
1701
1702 static const IDocHostUIHandler2Vtbl DocHostUIHandlerVtbl = {
1703     DocHostUIHandler_QueryInterface,
1704     DocHostUIHandler_AddRef,
1705     DocHostUIHandler_Release,
1706     DocHostUIHandler_ShowContextMenu,
1707     DocHostUIHandler_GetHostInfo,
1708     DocHostUIHandler_ShowUI,
1709     DocHostUIHandler_HideUI,
1710     DocHostUIHandler_UpdateUI,
1711     DocHostUIHandler_EnableModeless,
1712     DocHostUIHandler_OnDocWindowActivate,
1713     DocHostUIHandler_OnFrameWindowActivate,
1714     DocHostUIHandler_ResizeBorder,
1715     DocHostUIHandler_TranslateAccelerator,
1716     DocHostUIHandler_GetOptionKeyPath,
1717     DocHostUIHandler_GetDropTarget,
1718     DocHostUIHandler_GetExternal,
1719     DocHostUIHandler_TranslateUrl,
1720     DocHostUIHandler_FilterDataObject,
1721     DocHostUIHandler_GetOverrideKeyPath
1722 };
1723
1724 static IDocHostUIHandler2 DocHostUIHandler = { &DocHostUIHandlerVtbl };
1725
1726 static HRESULT WINAPI OleCommandTarget_QueryInterface(IOleCommandTarget *iface,
1727         REFIID riid, void **ppv)
1728 {
1729     return QueryInterface(riid, ppv);
1730 }
1731
1732 static ULONG WINAPI OleCommandTarget_AddRef(IOleCommandTarget *iface)
1733 {
1734     return 2;
1735 }
1736
1737 static ULONG WINAPI OleCommandTarget_Release(IOleCommandTarget *iface)
1738 {
1739     return 1;
1740 }
1741
1742 static HRESULT WINAPI OleCommandTarget_QueryStatus(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
1743         ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
1744 {
1745     ok(!pguidCmdGroup, "pguidCmdGroup != MULL\n");
1746     ok(cCmds == 1, "cCmds=%d, expected 1\n", cCmds);
1747     ok(!pCmdText, "pCmdText != NULL\n");
1748
1749     switch(prgCmds[0].cmdID) {
1750     case OLECMDID_SETPROGRESSTEXT:
1751         CHECK_EXPECT(QueryStatus_SETPROGRESSTEXT);
1752         prgCmds[0].cmdf = OLECMDF_ENABLED;
1753         return S_OK;
1754     case OLECMDID_OPEN:
1755         CHECK_EXPECT(QueryStatus_OPEN);
1756         prgCmds[0].cmdf = 0;
1757         return S_OK;
1758     case OLECMDID_NEW:
1759         CHECK_EXPECT(QueryStatus_NEW);
1760         prgCmds[0].cmdf = 0;
1761         return S_OK;
1762     default:
1763         ok(0, "unexpected command %d\n", prgCmds[0].cmdID);
1764     };
1765
1766     return E_FAIL;
1767 }
1768
1769 static HRESULT WINAPI OleCommandTarget_Exec(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
1770         DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
1771 {
1772     test_readyState(NULL);
1773
1774     if(!pguidCmdGroup) {
1775         switch(nCmdID) {
1776         case OLECMDID_SETPROGRESSMAX:
1777             CHECK_EXPECT2(Exec_SETPROGRESSMAX);
1778             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
1779             ok(pvaIn != NULL, "pvaIn == NULL\n");
1780             if(pvaIn) {
1781                 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
1782                 if(load_state == LD_NO)
1783                     ok(V_I4(pvaIn) == 0, "V_I4(pvaIn)=%d, expected 0\n", V_I4(pvaIn));
1784             }
1785             ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
1786             return S_OK;
1787         case OLECMDID_SETPROGRESSPOS:
1788             CHECK_EXPECT2(Exec_SETPROGRESSPOS);
1789             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
1790             ok(pvaIn != NULL, "pvaIn == NULL\n");
1791             if(pvaIn) {
1792                 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
1793                 if(load_state == LD_NO)
1794                     ok(V_I4(pvaIn) == 0, "V_I4(pvaIn)=%d, expected 0\n", V_I4(pvaIn));
1795             }
1796             ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
1797             return S_OK;
1798         case OLECMDID_HTTPEQUIV_DONE:
1799             CHECK_EXPECT(Exec_HTTPEQUIV_DONE);
1800             ok(nCmdexecopt == 0, "nCmdexecopts=%08x\n", nCmdexecopt);
1801             ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
1802             ok(pvaIn == NULL, "pvaIn=%p\n", pvaIn);
1803             load_state = LD_COMPLETE;
1804             return S_OK;
1805         case OLECMDID_SETDOWNLOADSTATE:
1806             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
1807             ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
1808             ok(pvaIn != NULL, "pvaIn == NULL\n");
1809             ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d\n", V_VT(pvaIn));
1810
1811             switch(V_I4(pvaIn)) {
1812             case 0:
1813                 CHECK_EXPECT(Exec_SETDOWNLOADSTATE_0);
1814                 load_state = LD_INTERACTIVE;
1815                 break;
1816             case 1:
1817                 CHECK_EXPECT(Exec_SETDOWNLOADSTATE_1);
1818                 break;
1819             default:
1820                 ok(0, "unexpevted V_I4(pvaIn)=%d\n", V_I4(pvaIn));
1821             }
1822
1823             return S_OK;
1824         case OLECMDID_UPDATECOMMANDS:
1825             CHECK_EXPECT(Exec_UPDATECOMMANDS);
1826             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
1827             ok(pvaIn == NULL, "pvaIn=%p\n", pvaIn);
1828             ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
1829             return S_OK;
1830         case OLECMDID_SETTITLE:
1831             CHECK_EXPECT2(Exec_SETTITLE);
1832             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
1833             ok(pvaIn != NULL, "pvaIn == NULL\n");
1834             ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
1835             ok(V_VT(pvaIn) == VT_BSTR, "V_VT(pvaIn)=%d\n", V_VT(pvaIn));
1836             ok(V_BSTR(pvaIn) != NULL, "V_BSTR(pvaIn) == NULL\n"); /* TODO */
1837             return S_OK;
1838         case OLECMDID_HTTPEQUIV:
1839             CHECK_EXPECT2(Exec_HTTPEQUIV);
1840             ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
1841             /* TODO */
1842             return S_OK;
1843         default:
1844             ok(0, "unexpected command %d\n", nCmdID);
1845             return E_FAIL;
1846         };
1847     }
1848
1849     if(IsEqualGUID(&CGID_ShellDocView, pguidCmdGroup)) {
1850         ok(nCmdexecopt == 0, "nCmdexecopts=%08x\n", nCmdexecopt);
1851
1852         switch(nCmdID) {
1853         case 37:
1854             CHECK_EXPECT2(Exec_ShellDocView_37);
1855             ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
1856             ok(pvaIn != NULL, "pvaIn == NULL\n");
1857             if(pvaIn) {
1858                 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
1859                 ok(V_I4(pvaIn) == 0, "V_I4(pvaIn)=%d, expected 0\n", V_I4(pvaIn));
1860             }
1861             return S_OK;
1862         default:
1863             ok(0, "unexpected command %d\n", nCmdID);
1864             return E_FAIL;
1865         };
1866     }
1867
1868     if(IsEqualGUID(&CGID_MSHTML, pguidCmdGroup)) {
1869         ok(nCmdexecopt == 0, "nCmdexecopts=%08x\n", nCmdexecopt);
1870
1871         switch(nCmdID) {
1872         case IDM_PARSECOMPLETE:
1873             CHECK_EXPECT(Exec_MSHTML_PARSECOMPLETE);
1874             ok(pvaIn == NULL, "pvaIn != NULL\n");
1875             ok(pvaOut == NULL, "pvaOut != NULL\n");
1876             return S_OK;
1877         default:
1878             ok(0, "unexpected command %d\n", nCmdID);
1879         };
1880     }
1881
1882     if(IsEqualGUID(&CGID_DocHostCmdPriv, pguidCmdGroup))
1883         return E_FAIL; /* TODO */
1884
1885     ok(0, "unexpected call\n");
1886     return E_NOTIMPL;
1887 }
1888
1889 static IOleCommandTargetVtbl OleCommandTargetVtbl = {
1890     OleCommandTarget_QueryInterface,
1891     OleCommandTarget_AddRef,
1892     OleCommandTarget_Release,
1893     OleCommandTarget_QueryStatus,
1894     OleCommandTarget_Exec
1895 };
1896
1897 static IOleCommandTarget OleCommandTarget = { &OleCommandTargetVtbl };
1898
1899 static HRESULT WINAPI Dispatch_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
1900 {
1901     return QueryInterface(riid, ppv);
1902 }
1903
1904 static ULONG WINAPI Dispatch_AddRef(IDispatch *iface)
1905 {
1906     return 2;
1907 }
1908
1909 static ULONG WINAPI Dispatch_Release(IDispatch *iface)
1910 {
1911     return 1;
1912 }
1913
1914 static HRESULT WINAPI Dispatch_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
1915 {
1916     ok(0, "unexpected call\n");
1917     return E_NOTIMPL;
1918 }
1919
1920 static HRESULT WINAPI Dispatch_GetTypeInfo(IDispatch *iface, UINT iTInfo, LCID lcid,
1921         ITypeInfo **ppTInfo)
1922 {
1923     ok(0, "unexpected call\n");
1924     return E_NOTIMPL;
1925 }
1926
1927 static HRESULT WINAPI Dispatch_GetIDsOfNames(IDispatch *iface, REFIID riid, LPOLESTR *rgszNames,
1928         UINT cNames, LCID lcid, DISPID *rgDispId)
1929 {
1930     ok(0, "unexpected call\n");
1931     return E_NOTIMPL;
1932 }
1933
1934 static HRESULT WINAPI Dispatch_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
1935         LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
1936         EXCEPINFO *pExcepInfo, UINT *puArgErr)
1937 {
1938     ok(IsEqualGUID(&IID_NULL, riid), "riid != IID_NULL\n");
1939     ok(pDispParams != NULL, "pDispParams == NULL\n");
1940     ok(pExcepInfo == NULL, "pExcepInfo=%p, expected NULL\n", pExcepInfo);
1941     ok(puArgErr != NULL, "puArgErr == NULL\n");
1942     ok(V_VT(pVarResult) == 0, "V_VT(pVarResult)=%d, expected 0\n", V_VT(pVarResult));
1943     ok(wFlags == DISPATCH_PROPERTYGET, "wFlags=%08x, expected DISPATCH_PROPERTYGET\n", wFlags);
1944     test_readyState(NULL);
1945
1946     switch(dispIdMember) {
1947     case DISPID_AMBIENT_USERMODE:
1948         CHECK_EXPECT2(Invoke_AMBIENT_USERMODE);
1949         V_VT(pVarResult) = VT_BOOL;
1950         V_BOOL(pVarResult) = VARIANT_TRUE;
1951         return S_OK;
1952     case DISPID_AMBIENT_DLCONTROL:
1953         CHECK_EXPECT2(Invoke_AMBIENT_DLCONTROL);
1954         return E_FAIL;
1955     case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
1956         CHECK_EXPECT2(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1957         return E_FAIL;
1958     case DISPID_AMBIENT_SILENT:
1959         CHECK_EXPECT2(Invoke_AMBIENT_SILENT);
1960         V_VT(pVarResult) = VT_BOOL;
1961         V_BOOL(pVarResult) = VARIANT_FALSE;
1962         return S_OK;
1963     case DISPID_AMBIENT_USERAGENT:
1964         CHECK_EXPECT(Invoke_AMBIENT_USERAGENT);
1965         return E_FAIL;
1966     case DISPID_AMBIENT_PALETTE:
1967         CHECK_EXPECT(Invoke_AMBIENT_PALETTE);
1968         return E_FAIL;
1969     };
1970
1971     ok(0, "unexpected dispid %d\n", dispIdMember);
1972     return E_FAIL;
1973 }
1974
1975 static IDispatchVtbl DispatchVtbl = {
1976     Dispatch_QueryInterface,
1977     Dispatch_AddRef,
1978     Dispatch_Release,
1979     Dispatch_GetTypeInfoCount,
1980     Dispatch_GetTypeInfo,
1981     Dispatch_GetIDsOfNames,
1982     Dispatch_Invoke
1983 };
1984
1985 static IDispatch Dispatch = { &DispatchVtbl };
1986
1987 static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface,
1988                                                      REFIID riid, void **ppv)
1989 {
1990     return QueryInterface(riid, ppv);
1991 }
1992
1993 static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface)
1994 {
1995     return 2;
1996 }
1997
1998 static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface)
1999 {
2000     return 1;
2001 }
2002
2003 static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService,
2004                                     REFIID riid, void **ppv)
2005 {
2006     /*
2007      * Services used by HTMLDocument:
2008      *
2009      * IOleUndoManager
2010      * IInternetSecurityManager
2011      * ITargetFrame
2012      * {D5F78C80-5252-11CF-90FA-00AA0042106E}
2013      * HTMLFrameBase
2014      * IShellObject
2015      * {3050F312-98B5-11CF-BB82-00AA00BDCE0B}
2016      * {53A2D5B1-D2FC-11D0-84E0-006097C9987D}
2017      * {AD7F6C62-F6BD-11D2-959B-006097C553C8}
2018      * DefView (?)
2019      * {6D12FE80-7911-11CF-9534-0000C05BAE0B}
2020      * IElementBehaviorFactory
2021      * {3050F429-98B5-11CF-BB82-00AA00BDCE0B}
2022      * STopLevelBrowser
2023      * IHTMLWindow2
2024      * IInternetProtocol
2025      * IWebBrowserApp
2026      * UrlHostory
2027      * IHTMLEditHost
2028      * IHlinkFrame
2029      */
2030
2031     if(IsEqualGUID(&IID_IHlinkFrame, guidService)) {
2032         ok(IsEqualGUID(&IID_IHlinkFrame, riid), "unexpected riid\n");
2033         *ppv = &HlinkFrame;
2034         return S_OK;
2035     }
2036
2037     return E_NOINTERFACE;
2038 }
2039
2040 static const IServiceProviderVtbl ServiceProviderVtbl = {
2041     ServiceProvider_QueryInterface,
2042     ServiceProvider_AddRef,
2043     ServiceProvider_Release,
2044     ServiceProvider_QueryService
2045 };
2046
2047 static IServiceProvider ServiceProvider = { &ServiceProviderVtbl };
2048
2049 static HRESULT QueryInterface(REFIID riid, void **ppv)
2050 {
2051     *ppv = NULL;
2052
2053     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IOleClientSite, riid))
2054         *ppv = &ClientSite;
2055     else if(IsEqualGUID(&IID_IOleDocumentSite, riid))
2056         *ppv = &DocumentSite;
2057     else if(IsEqualGUID(&IID_IDocHostUIHandler, riid) || IsEqualGUID(&IID_IDocHostUIHandler2, riid))
2058         *ppv = &DocHostUIHandler;
2059     else if(IsEqualGUID(&IID_IOleContainer, riid))
2060         *ppv = &OleContainer;
2061     else if(IsEqualGUID(&IID_IOleWindow, riid) || IsEqualGUID(&IID_IOleInPlaceSite, riid))
2062         *ppv = &InPlaceSite;
2063     else if(IsEqualGUID(&IID_IOleInPlaceUIWindow, riid) || IsEqualGUID(&IID_IOleInPlaceFrame, riid))
2064         *ppv = &InPlaceFrame;
2065     else if(IsEqualGUID(&IID_IOleCommandTarget , riid))
2066         *ppv = &OleCommandTarget;
2067     else if(IsEqualGUID(&IID_IDispatch, riid))
2068         *ppv = &Dispatch;
2069     else if(IsEqualGUID(&IID_IServiceProvider, riid))
2070         *ppv = &ServiceProvider;
2071
2072     /* TODO:
2073      * IOleInPlaceSiteEx
2074      * {D48A6EC6-6A4A-11CF-94A7-444553540000}
2075      * {7BB0B520-B1A7-11D2-BB23-00C04F79ABCD}
2076      * {000670BA-0000-0000-C000-000000000046}
2077      */
2078
2079     if(*ppv)
2080         return S_OK;
2081     return E_NOINTERFACE;
2082 }
2083
2084 static LRESULT WINAPI wnd_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
2085 {
2086     return DefWindowProc(hwnd, msg, wParam, lParam);
2087 }
2088
2089 static void test_readyState(IUnknown *unk)
2090 {
2091     IHTMLDocument2 *htmldoc;
2092     BSTR state;
2093     HRESULT hres;
2094
2095     static const WCHAR wszUninitialized[] = {'u','n','i','n','i','t','i','a','l','i','z','e','d',0};
2096     static const WCHAR wszLoading[] = {'l','o','a','d','i','n','g',0};
2097     static const WCHAR wszInteractive[] = {'i','n','t','e','r','a','c','t','i','v','e',0};
2098     static const WCHAR wszComplete[] = {'c','o','m','p','l','e','t','e',0};
2099
2100     static const LPCWSTR expected_state[] = {
2101         wszUninitialized,
2102         wszLoading,
2103         wszInteractive,
2104         wszComplete,
2105         wszUninitialized
2106     };
2107
2108     if(!unk)
2109         unk = doc_unk;
2110
2111     hres = IUnknown_QueryInterface(unk, &IID_IHTMLDocument2, (void**)&htmldoc);
2112     ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument2) failed: %08x\n", hres);
2113     if(FAILED(hres))
2114         return;
2115
2116     hres = IHTMLDocument2_get_readyState(htmldoc, NULL);
2117     ok(hres == E_POINTER, "get_readyState failed: %08x, expected\n", hres);
2118
2119     hres = IHTMLDocument2_get_readyState(htmldoc, &state);
2120     ok(hres == S_OK, "get_ReadyState failed: %08x\n", hres);
2121     ok(!lstrcmpW(state, expected_state[load_state]), "unexpected state, expected %d\n", load_state);
2122
2123     IHTMLDocument_Release(htmldoc);
2124 }
2125
2126 static void test_ConnectionPoint(IConnectionPointContainer *container, REFIID riid)
2127 {
2128     IConnectionPointContainer *tmp_container = NULL;
2129     IConnectionPoint *cp;
2130     IID iid;
2131     HRESULT hres;
2132
2133     hres = IConnectionPointContainer_FindConnectionPoint(container, riid, &cp);
2134     ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
2135     if(FAILED(hres))
2136         return;
2137
2138     hres = IConnectionPoint_GetConnectionInterface(cp, &iid);
2139     ok(hres == S_OK, "GetConnectionInterface failed: %08x\n", hres);
2140     ok(IsEqualGUID(riid, &iid), "wrong iid\n");
2141
2142     hres = IConnectionPoint_GetConnectionInterface(cp, NULL);
2143     ok(hres == E_POINTER, "GetConnectionInterface failed: %08x, expected E_POINTER\n", hres);
2144
2145     hres = IConnectionPoint_GetConnectionPointContainer(cp, &tmp_container);
2146     ok(hres == S_OK, "GetConnectionPointContainer failed: %08x\n", hres);
2147     ok(tmp_container == container, "container != tmp_container\n");
2148     if(SUCCEEDED(hres))
2149         IConnectionPointContainer_Release(tmp_container);
2150
2151     hres = IConnectionPoint_GetConnectionPointContainer(cp, NULL);
2152     ok(hres == E_POINTER, "GetConnectionPointContainer failed: %08x, expected E_POINTER\n", hres);
2153
2154     if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
2155         DWORD cookie;
2156
2157         hres = IConnectionPoint_Advise(cp, (IUnknown*)&PropertyNotifySink, &cookie);
2158         ok(hres == S_OK, "Advise failed: %08x\n", hres);
2159     }
2160
2161     IConnectionPoint_Release(cp);
2162 }
2163
2164 static void test_ConnectionPointContainer(IUnknown *unk)
2165 {
2166     IConnectionPointContainer *container;
2167     HRESULT hres;
2168
2169     hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
2170     ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
2171     if(FAILED(hres))
2172         return;
2173
2174     test_ConnectionPoint(container, &IID_IPropertyNotifySink);
2175     test_ConnectionPoint(container, &DIID_HTMLDocumentEvents);
2176     test_ConnectionPoint(container, &DIID_HTMLDocumentEvents2);
2177
2178     IConnectionPointContainer_Release(container);
2179 }
2180
2181 static void test_Load(IPersistMoniker *persist)
2182 {
2183     IBindCtx *bind;
2184     HRESULT hres;
2185     WCHAR sz_html_clientsite_objectparam[MAX_PATH];
2186
2187     lstrcpyW(sz_html_clientsite_objectparam, SZ_HTML_CLIENTSITE_OBJECTPARAM);
2188
2189     test_readyState((IUnknown*)persist);
2190
2191     CreateBindCtx(0, &bind);
2192     IBindCtx_RegisterObjectParam(bind, sz_html_clientsite_objectparam,
2193                                  (IUnknown*)&ClientSite);
2194
2195     SET_EXPECT(GetDisplayName);
2196     if(!set_clientsite) {
2197         SET_EXPECT(Invoke_AMBIENT_USERMODE);
2198         SET_EXPECT(GetHostInfo);
2199         SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2200         SET_EXPECT(Invoke_AMBIENT_SILENT);
2201         SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2202         SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2203         SET_EXPECT(Invoke_AMBIENT_PALETTE);
2204         SET_EXPECT(GetOptionKeyPath);
2205         SET_EXPECT(GetOverrideKeyPath);
2206         SET_EXPECT(GetWindow);
2207         SET_EXPECT(QueryStatus_SETPROGRESSTEXT);
2208         SET_EXPECT(Exec_SETPROGRESSMAX);
2209         SET_EXPECT(Exec_SETPROGRESSPOS);
2210         SET_EXPECT(Exec_ShellDocView_37);
2211     }
2212     if(!container_locked) {
2213         SET_EXPECT(GetContainer);
2214         SET_EXPECT(LockContainer);
2215     }
2216     SET_EXPECT(OnChanged_READYSTATE);
2217     SET_EXPECT(BindToStorage);
2218     if(set_clientsite) {
2219         SET_EXPECT(Invoke_AMBIENT_SILENT);
2220         SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2221         SET_EXPECT(Exec_ShellDocView_37);
2222     }
2223     expect_LockContainer_fLock = TRUE;
2224     readystate_set_loading = TRUE;
2225
2226     hres = IPersistMoniker_Load(persist, FALSE, &Moniker, bind, 0x12);
2227     ok(hres == S_OK, "Load failed: %08x\n", hres);
2228
2229     CHECK_CALLED(GetDisplayName);
2230     if(!set_clientsite) {
2231         CHECK_CALLED(Invoke_AMBIENT_USERMODE);
2232         CHECK_CALLED(GetHostInfo);
2233         CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
2234         CHECK_CALLED(Invoke_AMBIENT_SILENT);
2235         CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2236         CHECK_CALLED(Invoke_AMBIENT_USERAGENT);
2237         CHECK_CALLED(Invoke_AMBIENT_PALETTE);
2238         CHECK_CALLED(GetOptionKeyPath);
2239         CHECK_CALLED(GetOverrideKeyPath);
2240         CHECK_CALLED(GetWindow);
2241         CHECK_CALLED(QueryStatus_SETPROGRESSTEXT);
2242         CHECK_CALLED(Exec_SETPROGRESSMAX);
2243         CHECK_CALLED(Exec_SETPROGRESSPOS);
2244         CHECK_CALLED(Exec_ShellDocView_37);
2245     }
2246     if(!container_locked) {
2247         CHECK_CALLED(GetContainer);
2248         CHECK_CALLED(LockContainer);
2249         container_locked = TRUE;
2250     }
2251     CHECK_CALLED(OnChanged_READYSTATE);
2252     CHECK_CALLED(BindToStorage);
2253     if(set_clientsite) {
2254         CHECK_CALLED(Invoke_AMBIENT_SILENT);
2255         CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2256         CHECK_CALLED(Exec_ShellDocView_37);
2257     }
2258
2259     set_clientsite = container_locked = TRUE;
2260
2261     IBindCtx_Release(bind);
2262
2263     test_readyState((IUnknown*)persist);
2264 }
2265
2266 static void test_download(BOOL verb_done, BOOL css_dwl)
2267 {
2268     HWND hwnd;
2269     MSG msg;
2270
2271     hwnd = FindWindowA("Internet Explorer_Hidden", NULL);
2272     ok(hwnd != NULL, "Could not find hidden window\n");
2273
2274     test_readyState(NULL);
2275
2276     if(verb_done) {
2277         SET_EXPECT(Exec_SETPROGRESSMAX);
2278         if(!load_from_stream)
2279             SET_EXPECT(GetHostInfo);
2280     }
2281     SET_EXPECT(SetStatusText);
2282     SET_EXPECT(Exec_SETDOWNLOADSTATE_1);
2283     SET_EXPECT(GetDropTarget);
2284     if(css_dwl) {
2285         SET_EXPECT(CreateInstance);
2286         SET_EXPECT(Start);
2287         SET_EXPECT(LockRequest);
2288         SET_EXPECT(Terminate);
2289         SET_EXPECT(Protocol_Read);
2290         SET_EXPECT(UnlockRequest);
2291     }
2292     SET_EXPECT(OnChanged_1005);
2293     SET_EXPECT(OnChanged_READYSTATE);
2294     SET_EXPECT(Exec_SETPROGRESSPOS);
2295     SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
2296     SET_EXPECT(Exec_MSHTML_PARSECOMPLETE);
2297     SET_EXPECT(Exec_HTTPEQUIV_DONE);
2298     expect_status_text = (LPWSTR)0xdeadbeef; /* TODO */
2299
2300     while(!called_Exec_HTTPEQUIV_DONE && GetMessage(&msg, NULL, 0, 0)) {
2301         TranslateMessage(&msg);
2302         DispatchMessage(&msg);
2303     }
2304
2305     if(verb_done) {
2306         CHECK_CALLED(Exec_SETPROGRESSMAX);
2307         if(!load_from_stream)
2308             CHECK_CALLED(GetHostInfo);
2309     }
2310     CHECK_CALLED(SetStatusText);
2311     CHECK_CALLED(Exec_SETDOWNLOADSTATE_1);
2312     CHECK_CALLED(GetDropTarget);
2313     if(css_dwl) {
2314         if(called_CreateInstance) {
2315             CHECK_CALLED(CreateInstance);
2316             CHECK_CALLED(Start);
2317             CHECK_CALLED(LockRequest);
2318             CHECK_CALLED(Terminate);
2319             CHECK_CALLED(Protocol_Read);
2320             CHECK_CALLED(UnlockRequest);
2321         }else {
2322             skip("CreateInstance not called. Assuming no Gecko installed.\n");
2323
2324             SET_CALLED(CreateInstance);
2325             SET_CALLED(Start);
2326             SET_CALLED(LockRequest);
2327             SET_CALLED(Terminate);
2328             SET_CALLED(Protocol_Read);
2329             SET_CALLED(UnlockRequest);
2330
2331             nogecko = TRUE;
2332         }
2333     }
2334     CHECK_CALLED(OnChanged_1005);
2335     CHECK_CALLED(OnChanged_READYSTATE);
2336     CHECK_CALLED(Exec_SETPROGRESSPOS);
2337     CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
2338     CHECK_CALLED(Exec_MSHTML_PARSECOMPLETE);
2339     CHECK_CALLED(Exec_HTTPEQUIV_DONE);
2340
2341     load_state = LD_COMPLETE;
2342
2343     test_readyState(NULL);
2344 }
2345
2346 static void test_Persist(IUnknown *unk)
2347 {
2348     IPersistMoniker *persist_mon;
2349     IPersistFile *persist_file;
2350     GUID guid;
2351     HRESULT hres;
2352
2353     hres = IUnknown_QueryInterface(unk, &IID_IPersistFile, (void**)&persist_file);
2354     ok(hres == S_OK, "QueryInterface(IID_IPersist) failed: %08x\n", hres);
2355     if(SUCCEEDED(hres)) {
2356         hres = IPersist_GetClassID(persist_file, NULL);
2357         ok(hres == E_INVALIDARG, "GetClassID returned: %08x, expected E_INVALIDARG\n", hres);
2358
2359         hres = IPersist_GetClassID(persist_file, &guid);
2360         ok(hres == S_OK, "GetClassID failed: %08x\n", hres);
2361         ok(IsEqualGUID(&CLSID_HTMLDocument, &guid), "guid != CLSID_HTMLDocument\n");
2362
2363         IPersist_Release(persist_file);
2364     }
2365
2366     hres = IUnknown_QueryInterface(unk, &IID_IPersistMoniker, (void**)&persist_mon);
2367     ok(hres == S_OK, "QueryInterface(IID_IPersistMoniker) failed: %08x\n", hres);
2368     if(SUCCEEDED(hres)) {
2369         hres = IPersistMoniker_GetClassID(persist_mon, NULL);
2370         ok(hres == E_INVALIDARG, "GetClassID returned: %08x, expected E_INVALIDARG\n", hres);
2371
2372         hres = IPersistMoniker_GetClassID(persist_mon, &guid);
2373         ok(hres == S_OK, "GetClassID failed: %08x\n", hres);
2374         ok(IsEqualGUID(&CLSID_HTMLDocument, &guid), "guid != CLSID_HTMLDocument\n");
2375
2376         if(load_state == LD_DOLOAD)
2377             test_Load(persist_mon);
2378
2379         test_readyState(unk);
2380
2381         IPersistMoniker_Release(persist_mon);
2382     }
2383 }
2384
2385 static const OLECMDF expect_cmds[OLECMDID_GETPRINTTEMPLATE+1] = {
2386     0,
2387     OLECMDF_SUPPORTED,                  /* OLECMDID_OPEN */
2388     OLECMDF_SUPPORTED,                  /* OLECMDID_NEW */
2389     OLECMDF_SUPPORTED,                  /* OLECMDID_SAVE */
2390     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_SAVEAS */
2391     OLECMDF_SUPPORTED,                  /* OLECMDID_SAVECOPYAS */
2392     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_PRINT */
2393     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_PRINTPREVIEW */
2394     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_PAGESETUP */
2395     OLECMDF_SUPPORTED,                  /* OLECMDID_SPELL */
2396     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_PROPERTIES */
2397     OLECMDF_SUPPORTED,                  /* OLECMDID_CUT */
2398     OLECMDF_SUPPORTED,                  /* OLECMDID_COPY */
2399     OLECMDF_SUPPORTED,                  /* OLECMDID_PASTE */
2400     OLECMDF_SUPPORTED,                  /* OLECMDID_PASTESPECIAL */
2401     OLECMDF_SUPPORTED,                  /* OLECMDID_UNDO */
2402     OLECMDF_SUPPORTED,                  /* OLECMDID_REDO */
2403     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_SELECTALL */
2404     OLECMDF_SUPPORTED,                  /* OLECMDID_CLEARSELECTION */
2405     OLECMDF_SUPPORTED,                  /* OLECMDID_ZOOM */
2406     OLECMDF_SUPPORTED,                  /* OLECMDID_GETZOOMRANGE */
2407     0,
2408     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_REFRESH */
2409     OLECMDF_SUPPORTED|OLECMDF_ENABLED,  /* OLECMDID_STOP */
2410     0,0,0,0,0,0,
2411     OLECMDF_SUPPORTED,                  /* OLECMDID_STOPDOWNLOAD */
2412     0,0,
2413     OLECMDF_SUPPORTED,                  /* OLECMDID_DELETE */
2414     0,0,
2415     OLECMDF_SUPPORTED,                  /* OLECMDID_ENABLE_INTERACTION */
2416     OLECMDF_SUPPORTED,                  /* OLECMDID_ONUNLOAD */
2417     0,0,0,0,0,
2418     OLECMDF_SUPPORTED,                  /* OLECMDID_SHOWPAGESETUP */
2419     OLECMDF_SUPPORTED,                  /* OLECMDID_SHOWPRINT */
2420     0,0,
2421     OLECMDF_SUPPORTED,                  /* OLECMDID_CLOSE */
2422     0,0,0,
2423     OLECMDF_SUPPORTED,                  /* OLECMDID_SETPRINTTEMPLATE */
2424     OLECMDF_SUPPORTED                   /* OLECMDID_GETPRINTTEMPLATE */
2425 };
2426
2427 static void test_QueryStatus(IUnknown *unk, REFIID cgid, ULONG cmdid, DWORD cmdf)
2428 {
2429     IOleCommandTarget *cmdtrg;
2430     OLECMD olecmd = {cmdid, 0};
2431     HRESULT hres;
2432
2433     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2434     ok(hres == S_OK, "QueryInterface(IID_IOleCommandTarget failed: %08x\n", hres);
2435     if(FAILED(hres))
2436         return;
2437
2438     hres = IOleCommandTarget_QueryStatus(cmdtrg, cgid, 1, &olecmd, NULL);
2439     ok(hres == S_OK, "QueryStatus failed: %08x\n", hres);
2440
2441     IOleCommandTarget_Release(cmdtrg);
2442
2443     ok(olecmd.cmdID == cmdid, "cmdID changed\n");
2444     ok(olecmd.cmdf == cmdf, "cmdf=%08x, expected %08x\n", olecmd.cmdf, cmdf);
2445 }
2446
2447 static void test_MSHTML_QueryStatus(IUnknown *unk, DWORD cmdf)
2448 {
2449     if(!unk)
2450         unk = doc_unk;
2451
2452     test_QueryStatus(unk, &CGID_MSHTML, IDM_FONTNAME, cmdf);
2453     test_QueryStatus(unk, &CGID_MSHTML, IDM_FONTSIZE, cmdf);
2454     test_QueryStatus(unk, &CGID_MSHTML, IDM_BOLD, cmdf);
2455     test_QueryStatus(unk, &CGID_MSHTML, IDM_FORECOLOR, cmdf);
2456     test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYCENTER, cmdf);
2457     test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYLEFT, cmdf);
2458     test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYRIGHT, cmdf);
2459     test_QueryStatus(unk, &CGID_MSHTML, IDM_ITALIC, cmdf);
2460     test_QueryStatus(unk, &CGID_MSHTML, IDM_UNDERLINE, cmdf);
2461     test_QueryStatus(unk, &CGID_MSHTML, IDM_HORIZONTALLINE, cmdf);
2462     test_QueryStatus(unk, &CGID_MSHTML, IDM_ORDERLIST, cmdf);
2463     test_QueryStatus(unk, &CGID_MSHTML, IDM_UNORDERLIST, cmdf);
2464     test_QueryStatus(unk, &CGID_MSHTML, IDM_INDENT, cmdf);
2465     test_QueryStatus(unk, &CGID_MSHTML, IDM_OUTDENT, cmdf);
2466 }
2467
2468 static void test_OleCommandTarget(IUnknown *unk)
2469 {
2470     IOleCommandTarget *cmdtrg;
2471     OLECMD cmds[OLECMDID_GETPRINTTEMPLATE];
2472     int i;
2473     HRESULT hres;
2474
2475     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2476     ok(hres == S_OK, "QueryInterface(IID_IOleCommandTarget failed: %08x\n", hres);
2477     if(FAILED(hres))
2478         return;
2479
2480     for(i=0; i<OLECMDID_GETPRINTTEMPLATE; i++) {
2481         cmds[i].cmdID = i+1;
2482         cmds[i].cmdf = 0xf0f0;
2483     }
2484
2485     SET_EXPECT(QueryStatus_OPEN);
2486     SET_EXPECT(QueryStatus_NEW);
2487     hres = IOleCommandTarget_QueryStatus(cmdtrg, NULL, sizeof(cmds)/sizeof(cmds[0]), cmds, NULL);
2488     ok(hres == S_OK, "QueryStatus failed: %08x\n", hres);
2489     CHECK_CALLED(QueryStatus_OPEN);
2490     CHECK_CALLED(QueryStatus_NEW);
2491
2492     for(i=0; i<OLECMDID_GETPRINTTEMPLATE; i++) {
2493         ok(cmds[i].cmdID == i+1, "cmds[%d].cmdID canged to %x\n", i, cmds[i].cmdID);
2494         ok(cmds[i].cmdf == expect_cmds[i+1], "cmds[%d].cmdf=%x, expected %x\n",
2495                 i+1, cmds[i].cmdf, expect_cmds[i+1]);
2496     }
2497
2498     IOleCommandTarget_Release(cmdtrg);
2499 }
2500
2501 static void test_OleCommandTarget_fail(IUnknown *unk)
2502 {
2503     IOleCommandTarget *cmdtrg;
2504     int i;
2505     HRESULT hres;
2506
2507     OLECMD cmd[2] = {
2508         {OLECMDID_OPEN, 0xf0f0},
2509         {OLECMDID_GETPRINTTEMPLATE+1, 0xf0f0}
2510     };
2511
2512     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2513     ok(hres == S_OK, "QueryInterface(IIDIOleM=CommandTarget failed: %08x\n", hres);
2514     if(FAILED(hres))
2515         return;
2516
2517     hres = IOleCommandTarget_QueryStatus(cmdtrg, NULL, 0, NULL, NULL);
2518     ok(hres == S_OK, "QueryStatus failed: %08x\n", hres);
2519
2520     SET_EXPECT(QueryStatus_OPEN);
2521     hres = IOleCommandTarget_QueryStatus(cmdtrg, NULL, 2, cmd, NULL);
2522     CHECK_CALLED(QueryStatus_OPEN);
2523
2524     ok(hres == OLECMDERR_E_NOTSUPPORTED,
2525             "QueryStatus failed: %08x, expected OLECMDERR_E_NOTSUPPORTED\n", hres);
2526     ok(cmd[1].cmdID == OLECMDID_GETPRINTTEMPLATE+1,
2527             "cmd[0].cmdID=%d, expected OLECMDID_GETPRINTTEMPLATE+1\n", cmd[0].cmdID);
2528     ok(cmd[1].cmdf == 0, "cmd[0].cmdf=%x, expected 0\n", cmd[0].cmdf);
2529     ok(cmd[0].cmdf == OLECMDF_SUPPORTED,
2530             "cmd[1].cmdf=%x, expected OLECMDF_SUPPORTED\n", cmd[1].cmdf);
2531
2532     hres = IOleCommandTarget_QueryStatus(cmdtrg, &IID_IHTMLDocument2, 2, cmd, NULL);
2533     ok(hres == OLECMDERR_E_UNKNOWNGROUP,
2534             "QueryStatus failed: %08x, expected OLECMDERR_E_UNKNOWNGROUP\n", hres);
2535
2536     for(i=0; i<OLECMDID_GETPRINTTEMPLATE; i++) {
2537         if(!expect_cmds[i]) {
2538             hres = IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_UPDATECOMMANDS,
2539                     OLECMDEXECOPT_DODEFAULT, NULL, NULL);
2540             ok(hres == OLECMDERR_E_NOTSUPPORTED,
2541                     "Exec failed: %08x, expected OLECMDERR_E_NOTSUPPORTED\n", hres);
2542         }
2543     }
2544
2545     hres = IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_GETPRINTTEMPLATE+1,
2546             OLECMDEXECOPT_DODEFAULT, NULL, NULL);
2547     ok(hres == OLECMDERR_E_NOTSUPPORTED,
2548             "Exec failed: %08x, expected OLECMDERR_E_NOTSUPPORTED\n", hres);
2549
2550     IOleCommandTarget_Release(cmdtrg);
2551 }
2552
2553 static void test_exec_onunload(IUnknown *unk)
2554 {
2555     IOleCommandTarget *cmdtrg;
2556     VARIANT var;
2557     HRESULT hres;
2558
2559     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2560     ok(hres == S_OK, "QueryInterface(IID_IOleCommandTarget) failed: %08x\n", hres);
2561     if(FAILED(hres))
2562         return;
2563
2564     memset(&var, 0x0a, sizeof(var));
2565     hres = IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_ONUNLOAD,
2566             OLECMDEXECOPT_DODEFAULT, NULL, &var);
2567     ok(hres == S_OK, "Exec(..., OLECMDID_ONUNLOAD, ...) failed: %08x\n", hres);
2568     ok(V_VT(&var) == VT_BOOL, "V_VT(var)=%d, expected VT_BOOL\n", V_VT(&var));
2569     ok(V_BOOL(&var) == VARIANT_TRUE, "V_BOOL(var)=%x, expected VARIANT_TRUE\n", V_BOOL(&var));
2570
2571     hres = IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_ONUNLOAD,
2572             OLECMDEXECOPT_DODEFAULT, NULL, NULL);
2573     ok(hres == S_OK, "Exec(..., OLECMDID_ONUNLOAD, ...) failed: %08x\n", hres);
2574
2575     IOleCommandTarget_Release(cmdtrg);
2576 }
2577
2578 static void test_exec_editmode(IUnknown *unk)
2579 {
2580     IOleCommandTarget *cmdtrg;
2581     HRESULT hres;
2582
2583     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2584     ok(hres == S_OK, "QueryInterface(IID_IOleCommandTarget) failed: %08x\n", hres);
2585     if(FAILED(hres))
2586         return;
2587
2588     SET_EXPECT(SetStatusText);
2589     SET_EXPECT(Exec_ShellDocView_37);
2590     SET_EXPECT(GetHostInfo);
2591     SET_EXPECT(Invoke_AMBIENT_SILENT);
2592     SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2593     SET_EXPECT(OnChanged_READYSTATE);
2594     expect_status_text = NULL;
2595     readystate_set_loading = TRUE;
2596
2597     hres = IOleCommandTarget_Exec(cmdtrg, &CGID_MSHTML, IDM_EDITMODE,
2598             OLECMDEXECOPT_DODEFAULT, NULL, NULL);
2599     ok(hres == S_OK, "Exec failed: %08x\n", hres);
2600
2601     CHECK_CALLED(SetStatusText);
2602     CHECK_CALLED(Exec_ShellDocView_37);
2603     CHECK_CALLED(GetHostInfo);
2604     CHECK_CALLED(Invoke_AMBIENT_SILENT);
2605     CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2606     CHECK_CALLED(OnChanged_READYSTATE);
2607
2608     test_timer(EXPECT_UPDATEUI|EXPECT_SETTITLE);
2609
2610     IOleCommandTarget_Release(cmdtrg);
2611
2612     editmode = TRUE;
2613
2614     hres = IOleCommandTarget_Exec(cmdtrg, &CGID_MSHTML, IDM_EDITMODE,
2615             OLECMDEXECOPT_DODEFAULT, NULL, NULL);
2616     ok(hres == S_OK, "Exec failed: %08x\n", hres);
2617 }
2618
2619 static void test_exec_fontname(IUnknown *unk, LPCWSTR name, LPCWSTR exname)
2620 {
2621    IOleCommandTarget *cmdtrg;
2622    VARIANT *in = NULL, _in, *out = NULL, _out;
2623    HRESULT hres;
2624
2625    hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2626    ok(hres == S_OK, "QueryInterface(IIDIOleM=CommandTarget failed: %08x\n", hres);
2627    if(FAILED(hres))
2628        return;
2629
2630    if(name) {
2631        in = &_in;
2632        V_VT(in) = VT_BSTR;
2633        V_BSTR(in) = SysAllocString(name);
2634    }
2635
2636    if(exname) {
2637        out = &_out;
2638        V_VT(out) = VT_I4;
2639        V_I4(out) = 0xdeadbeef;
2640    }
2641
2642    hres = IOleCommandTarget_Exec(cmdtrg, &CGID_MSHTML, IDM_FONTNAME, 0, in, out);
2643    if(!nogecko)
2644        ok(hres == S_OK, "Exec(IDM_FONTNAME) failed: %08x\n", hres);
2645
2646    if(in)
2647        VariantClear(in);
2648
2649    if(out && !nogecko) {
2650        ok(V_VT(out) == VT_BSTR, "V_VT(out) = %x\n", V_VT(out));
2651        if(V_VT(out) == VT_BSTR)
2652            ok(!lstrcmpW(V_BSTR(out), name ? name : exname), "unexpected fontname\n");
2653        VariantClear(out);
2654    }
2655
2656    IOleCommandTarget_Release(cmdtrg);
2657 }
2658
2659 static void test_exec_noargs(IUnknown *unk, DWORD cmdid)
2660 {
2661     IOleCommandTarget *cmdtrg;
2662     HRESULT hres;
2663
2664     hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2665     ok(hres == S_OK, "QueryInterface(IID_IOleCommandTarget) failed: %08x\n", hres);
2666     if(FAILED(hres))
2667         return;
2668
2669     hres = IOleCommandTarget_Exec(cmdtrg, &CGID_MSHTML, cmdid,
2670             OLECMDEXECOPT_DODEFAULT, NULL, NULL);
2671     ok(hres == S_OK, "Exec failed: %08x\n", hres);
2672
2673     IOleCommandTarget_Release(cmdtrg);
2674 }
2675
2676 static HWND create_container_window(void)
2677 {
2678     static const WCHAR wszHTMLDocumentTest[] =
2679         {'H','T','M','L','D','o','c','u','m','e','n','t','T','e','s','t',0};
2680     static WNDCLASSEXW wndclass = {
2681         sizeof(WNDCLASSEXW),
2682         0,
2683         wnd_proc,
2684         0, 0, NULL, NULL, NULL, NULL, NULL,
2685         wszHTMLDocumentTest,
2686         NULL
2687     };
2688
2689     RegisterClassExW(&wndclass);
2690     return CreateWindowW(wszHTMLDocumentTest, wszHTMLDocumentTest,
2691             WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
2692             CW_USEDEFAULT, NULL, NULL, NULL, NULL);
2693 }
2694
2695 static HRESULT test_DoVerb(IOleObject *oleobj)
2696 {
2697     RECT rect = {0,0,500,500};
2698     HRESULT hres;
2699
2700     if(!container_locked) {
2701         SET_EXPECT(GetContainer);
2702         SET_EXPECT(LockContainer);
2703     }
2704     SET_EXPECT(ActivateMe);
2705     expect_LockContainer_fLock = TRUE;
2706
2707     hres = IOleObject_DoVerb(oleobj, OLEIVERB_SHOW, NULL, &ClientSite, -1, container_hwnd, &rect);
2708     if(FAILED(hres))
2709         return hres;
2710     ok(hres == S_OK, "DoVerb failed: %08x\n", hres);
2711
2712     if(!container_locked) {
2713         CHECK_CALLED(GetContainer);
2714         CHECK_CALLED(LockContainer);
2715         container_locked = TRUE;
2716     }
2717     CHECK_CALLED(ActivateMe);
2718
2719     return hres;
2720 }
2721
2722 #define CLIENTSITE_EXPECTPATH 0x00000001
2723 #define CLIENTSITE_SETNULL    0x00000002
2724 #define CLIENTSITE_DONTSET    0x00000004
2725
2726 static void test_ClientSite(IOleObject *oleobj, DWORD flags)
2727 {
2728     IOleClientSite *clientsite;
2729     HRESULT hres;
2730
2731     if(flags & CLIENTSITE_SETNULL) {
2732         hres = IOleObject_GetClientSite(oleobj, &clientsite);
2733         ok(clientsite == &ClientSite, "clientsite=%p, expected %p\n", clientsite, &ClientSite);
2734
2735         hres = IOleObject_SetClientSite(oleobj, NULL);
2736         ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
2737
2738         set_clientsite = FALSE;
2739     }
2740
2741     if(flags & CLIENTSITE_DONTSET)
2742         return;
2743
2744     hres = IOleObject_GetClientSite(oleobj, &clientsite);
2745     ok(hres == S_OK, "GetClientSite failed: %08x\n", hres);
2746     ok(clientsite == (set_clientsite ? &ClientSite : NULL), "GetClientSite() = %p, expected %p\n",
2747             clientsite, set_clientsite ? &ClientSite : NULL);
2748
2749     if(!set_clientsite) {
2750         SET_EXPECT(GetHostInfo);
2751         if(flags & CLIENTSITE_EXPECTPATH) {
2752             SET_EXPECT(GetOptionKeyPath);
2753             SET_EXPECT(GetOverrideKeyPath);
2754         }
2755         SET_EXPECT(GetWindow);
2756         SET_EXPECT(QueryStatus_SETPROGRESSTEXT);
2757         SET_EXPECT(Exec_SETPROGRESSMAX);
2758         SET_EXPECT(Exec_SETPROGRESSPOS);
2759         SET_EXPECT(Invoke_AMBIENT_USERMODE);
2760         SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2761         SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2762         SET_EXPECT(Invoke_AMBIENT_SILENT);
2763         SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2764         SET_EXPECT(Invoke_AMBIENT_PALETTE);
2765
2766         hres = IOleObject_SetClientSite(oleobj, &ClientSite);
2767         ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
2768
2769         CHECK_CALLED(GetHostInfo);
2770         if(flags & CLIENTSITE_EXPECTPATH) {
2771             CHECK_CALLED(GetOptionKeyPath);
2772             CHECK_CALLED(GetOverrideKeyPath);
2773         }
2774         CHECK_CALLED(GetWindow);
2775         CHECK_CALLED(QueryStatus_SETPROGRESSTEXT);
2776         CHECK_CALLED(Exec_SETPROGRESSMAX);
2777         CHECK_CALLED(Exec_SETPROGRESSPOS);
2778         CHECK_CALLED(Invoke_AMBIENT_USERMODE);
2779         CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
2780         CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2781         CHECK_CALLED(Invoke_AMBIENT_SILENT);
2782         CHECK_CALLED(Invoke_AMBIENT_USERAGENT);
2783         CHECK_CALLED(Invoke_AMBIENT_PALETTE);
2784
2785         set_clientsite = TRUE;
2786     }
2787
2788     hres = IOleObject_SetClientSite(oleobj, &ClientSite);
2789     ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
2790
2791     hres = IOleObject_GetClientSite(oleobj, &clientsite);
2792     ok(hres == S_OK, "GetClientSite failed: %08x\n", hres);
2793     ok(clientsite == &ClientSite, "GetClientSite() = %p, expected %p\n", clientsite, &ClientSite);
2794 }
2795
2796 static void test_OnAmbientPropertyChange(IUnknown *unk)
2797 {
2798     IOleControl *control = NULL;
2799     HRESULT hres;
2800
2801     hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
2802     ok(hres == S_OK, "QueryInterface(IID_IOleControl failed: %08x\n", hres);
2803     if(FAILED(hres))
2804         return;
2805
2806     SET_EXPECT(Invoke_AMBIENT_USERMODE);
2807     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_USERMODE);
2808     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
2809     CHECK_CALLED(Invoke_AMBIENT_USERMODE);
2810
2811     SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2812     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_DLCONTROL);
2813     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
2814     CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
2815
2816     SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2817     SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2818     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED);
2819     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
2820     CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
2821     CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2822
2823     SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2824     SET_EXPECT(Invoke_AMBIENT_SILENT);
2825     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_SILENT);
2826     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
2827     CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
2828     CHECK_CALLED(Invoke_AMBIENT_SILENT);
2829
2830     SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2831     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_USERAGENT);
2832     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
2833     CHECK_CALLED(Invoke_AMBIENT_USERAGENT);
2834
2835     SET_EXPECT(Invoke_AMBIENT_PALETTE);
2836     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_PALETTE);
2837     ok(hres == S_OK, "OnAmbientChange failed: %08x\n", hres);
2838     CHECK_CALLED(Invoke_AMBIENT_PALETTE);
2839
2840     IOleControl_Release(control);
2841 }
2842
2843
2844
2845 static void test_OnAmbientPropertyChange2(IUnknown *unk)
2846 {
2847     IOleControl *control = NULL;
2848     HRESULT hres;
2849
2850     hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
2851     ok(hres == S_OK, "QueryInterface(IID_IOleControl failed: %08x\n", hres);
2852     if(FAILED(hres))
2853         return;
2854
2855     hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_PALETTE);
2856     ok(hres == S_OK, "OnAmbientPropertyChange failed: %08x\n", hres);
2857
2858     IOleControl_Release(control);
2859 }
2860
2861 static void test_Close(IUnknown *unk, BOOL set_client)
2862 {
2863     IOleObject *oleobj = NULL;
2864     HRESULT hres;
2865
2866     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
2867     ok(hres == S_OK, "QueryInterface(IID_IOleObject) failed: %08x\n", hres);
2868     if(FAILED(hres))
2869         return;
2870
2871     SET_EXPECT(GetContainer);
2872     SET_EXPECT(LockContainer);
2873     expect_LockContainer_fLock = FALSE;
2874     hres = IOleObject_Close(oleobj, OLECLOSE_NOSAVE);
2875     ok(hres == S_OK, "Close failed: %08x\n", hres);
2876     CHECK_CALLED(GetContainer);
2877     CHECK_CALLED(LockContainer);
2878     container_locked = FALSE;
2879
2880     if(set_client)
2881         test_ClientSite(oleobj, CLIENTSITE_SETNULL|CLIENTSITE_DONTSET);
2882
2883     IOleObject_Release(oleobj);
2884 }
2885
2886 static void test_OnFrameWindowActivate(IUnknown *unk)
2887 {
2888     IOleInPlaceActiveObject *inplaceact;
2889     HRESULT hres;
2890
2891     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceActiveObject, (void**)&inplaceact);
2892     ok(hres == S_OK, "QueryInterface(IID_IOleInPlaceActiveObject) failed: %08x\n", hres);
2893     if(FAILED(hres))
2894         return;
2895
2896     if(set_clientsite) {
2897         expect_OnFrameWindowActivate_fActivate = TRUE;
2898         SET_EXPECT(OnFrameWindowActivate);
2899         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, TRUE);
2900         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
2901         CHECK_CALLED(OnFrameWindowActivate);
2902
2903         SET_EXPECT(OnFrameWindowActivate);
2904         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, TRUE);
2905         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
2906         CHECK_CALLED(OnFrameWindowActivate);
2907
2908         expect_OnFrameWindowActivate_fActivate = FALSE;
2909         SET_EXPECT(OnFrameWindowActivate);
2910         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, FALSE);
2911         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
2912         CHECK_CALLED(OnFrameWindowActivate);
2913
2914         expect_OnFrameWindowActivate_fActivate = TRUE;
2915         SET_EXPECT(OnFrameWindowActivate);
2916         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, TRUE);
2917         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
2918         CHECK_CALLED(OnFrameWindowActivate);
2919     }else {
2920         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, FALSE);
2921         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
2922
2923         hres = IOleInPlaceActiveObject_OnFrameWindowActivate(inplaceact, TRUE);
2924         ok(hres == S_OK, "OnFrameWindowActivate failed: %08x\n", hres);
2925     }
2926
2927     IOleInPlaceActiveObject_Release(inplaceact);
2928 }
2929
2930 static void test_InPlaceDeactivate(IUnknown *unk, BOOL expect_call)
2931 {
2932     IOleInPlaceObjectWindowless *windowlessobj = NULL;
2933     HRESULT hres;
2934
2935     hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceObjectWindowless,
2936             (void**)&windowlessobj);
2937     ok(hres == S_OK, "QueryInterface(IID_IOleInPlaceObjectWindowless) failed: %08x\n", hres);
2938     if(FAILED(hres))
2939         return;
2940
2941     if(expect_call) SET_EXPECT(OnInPlaceDeactivate);
2942     hres = IOleInPlaceObjectWindowless_InPlaceDeactivate(windowlessobj);
2943     ok(hres == S_OK, "InPlaceDeactivate failed: %08x\n", hres);
2944     if(expect_call) CHECK_CALLED(OnInPlaceDeactivate);
2945
2946     IOleInPlaceObjectWindowless_Release(windowlessobj);
2947 }
2948
2949 static HRESULT test_Activate(IUnknown *unk, DWORD flags)
2950 {
2951     IOleObject *oleobj = NULL;
2952     GUID guid;
2953     HRESULT hres;
2954
2955     last_hwnd = hwnd;
2956
2957     if(view)
2958         IOleDocumentView_Release(view);
2959     view = NULL;
2960
2961     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
2962     ok(hres == S_OK, "QueryInterface(IID_IOleObject) failed: %08x\n", hres);
2963     if(FAILED(hres))
2964         return hres;
2965
2966     hres = IOleObject_GetUserClassID(oleobj, NULL);
2967     ok(hres == E_INVALIDARG, "GetUserClassID returned: %08x, expected E_INVALIDARG\n", hres);
2968
2969     hres = IOleObject_GetUserClassID(oleobj, &guid);
2970     ok(hres == S_OK, "GetUserClassID failed: %08x\n", hres);
2971     ok(IsEqualGUID(&guid, &CLSID_HTMLDocument), "guid != CLSID_HTMLDocument\n");
2972
2973     test_OnFrameWindowActivate(unk);
2974
2975     test_ClientSite(oleobj, flags);
2976     test_InPlaceDeactivate(unk, FALSE);
2977
2978     hres = test_DoVerb(oleobj);
2979
2980     IOleObject_Release(oleobj);
2981
2982     test_OnFrameWindowActivate(unk);
2983
2984     return hres;
2985 }
2986
2987 static void test_Window(IUnknown *unk, BOOL expect_success)
2988 {
2989     IOleInPlaceActiveObject *activeobject = NULL;
2990     HWND tmp_hwnd;
2991     HRESULT hres;
2992
2993     hres = IOleDocumentView_QueryInterface(view, &IID_IOleInPlaceActiveObject, (void**)&activeobject);
2994     ok(hres == S_OK, "Could not get IOleInPlaceActiveObject interface: %08x\n", hres);
2995     if(FAILED(hres))
2996         return;
2997
2998     hres = IOleInPlaceActiveObject_GetWindow(activeobject, &tmp_hwnd);
2999
3000     if(expect_success) {
3001         ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
3002         ok(tmp_hwnd == hwnd, "tmp_hwnd=%p, expected %p\n", tmp_hwnd, hwnd);
3003     }else {
3004         ok(hres == E_FAIL, "GetWindow returned %08x, expected E_FAIL\n", hres);
3005         ok(IsWindow(hwnd), "hwnd is destroyed\n");
3006     }
3007
3008     IOleInPlaceActiveObject_Release(activeobject);
3009 }
3010
3011 static void test_CloseView(void)
3012 {
3013     IOleInPlaceSite *inplacesite = (IOleInPlaceSite*)0xff00ff00;
3014     HRESULT hres;
3015
3016     if(!view)
3017         return;
3018
3019     hres = IOleDocumentView_Show(view, FALSE);
3020     ok(hres == S_OK, "Show failed: %08x\n", hres);
3021
3022     hres = IOleDocumentView_CloseView(view, 0);
3023     ok(hres == S_OK, "CloseView failed: %08x\n", hres);
3024
3025     hres = IOleDocumentView_SetInPlaceSite(view, NULL);
3026     ok(hres == S_OK, "SetInPlaceSite failed: %08x\n", hres);
3027
3028     hres = IOleDocumentView_GetInPlaceSite(view, &inplacesite);
3029     ok(hres == S_OK, "SetInPlaceSite failed: %08x\n", hres);
3030     ok(inplacesite == NULL, "inplacesite=%p, expected NULL\n", inplacesite);
3031 }
3032
3033 static void test_UIDeactivate(void)
3034 {
3035     HRESULT hres;
3036
3037     if(call_UIActivate) {
3038         SET_EXPECT(SetActiveObject);
3039         SET_EXPECT(HideUI);
3040         SET_EXPECT(OnUIDeactivate);
3041     }
3042
3043     expect_SetActiveObject_active = FALSE;
3044     hres = IOleDocumentView_UIActivate(view, FALSE);
3045     ok(hres == S_OK, "UIActivate failed: %08x\n", hres);
3046
3047     if(call_UIActivate) {
3048         CHECK_CALLED(SetActiveObject);
3049         CHECK_CALLED(HideUI);
3050         CHECK_CALLED(OnUIDeactivate);
3051     }
3052 }
3053
3054 static void test_Hide(void)
3055 {
3056     HRESULT hres;
3057
3058     if(!view)
3059         return;
3060
3061     hres = IOleDocumentView_Show(view, FALSE);
3062     ok(hres == S_OK, "Show failed: %08x\n", hres);
3063 }
3064
3065 static HRESULT create_document(IUnknown **unk)
3066 {
3067     HRESULT hres = CoCreateInstance(&CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
3068             &IID_IUnknown, (void**)unk);
3069     ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
3070     return hres;
3071 }
3072
3073 static void test_Navigate(IUnknown *unk)
3074 {
3075     IHlinkTarget *hlink;
3076     HRESULT hres;
3077
3078     hres = IUnknown_QueryInterface(unk, &IID_IHlinkTarget, (void**)&hlink);
3079     ok(hres == S_OK, "QueryInterface(IID_IHlinkTarget) failed: %08x\n", hres);
3080
3081     SET_EXPECT(ActivateMe);
3082     hres = IHlinkTarget_Navigate(hlink, 0, NULL);
3083     ok(hres == S_OK, "Navigate failed: %08x\n", hres);
3084     CHECK_CALLED(ActivateMe);
3085
3086     IHlinkTarget_Release(hlink);
3087 }
3088
3089 static void test_StreamLoad(IUnknown *unk)
3090 {
3091     IPersistStreamInit *init;
3092     HRESULT hres;
3093
3094     hres = IUnknown_QueryInterface(unk, &IID_IPersistStreamInit, (void**)&init);
3095     ok(hres == S_OK, "QueryInterface(IID_IPersistStreamInit) failed: %08x\n", hres);
3096     if(FAILED(hres))
3097         return;
3098
3099     SET_EXPECT(Invoke_AMBIENT_SILENT);
3100     SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
3101     SET_EXPECT(Exec_ShellDocView_37);
3102     SET_EXPECT(OnChanged_READYSTATE);
3103     SET_EXPECT(Read);
3104     readystate_set_loading = TRUE;
3105
3106     hres = IPersistStreamInit_Load(init, &Stream);
3107     ok(hres == S_OK, "Load failed: %08x\n", hres);
3108
3109     CHECK_CALLED(Invoke_AMBIENT_SILENT);
3110     CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
3111     CHECK_CALLED(Exec_ShellDocView_37);
3112     CHECK_CALLED(OnChanged_READYSTATE);
3113     CHECK_CALLED(Read);
3114
3115     test_timer(EXPECT_SETTITLE);
3116
3117     IPersistStreamInit_Release(init);
3118 }
3119
3120 static void test_QueryInterface(IUnknown *unk)
3121 {
3122     IRunnableObject *runnable = (IRunnableObject*)0xdeadbeef;
3123     HRESULT hres;
3124
3125     hres = IUnknown_QueryInterface(unk, &IID_IRunnableObject, (void**)&runnable);
3126     ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
3127     ok(runnable == NULL, "runnable=%p, ezpected NULL\n", runnable);
3128 }
3129
3130 static void init_test(enum load_state_t ls) {
3131     doc_unk = NULL;
3132     hwnd = last_hwnd = NULL;
3133     set_clientsite = FALSE;
3134     load_from_stream = FALSE;
3135     call_UIActivate = FALSE;
3136     load_state = ls;
3137     editmode = FALSE;
3138     stream_read = 0;
3139     protocol_read = 0;
3140 }
3141
3142 static void test_HTMLDocument(enum load_state_t ls)
3143 {
3144     IUnknown *unk;
3145     HRESULT hres;
3146     ULONG ref;
3147
3148     trace("Testing HTMLDocument (%s)...\n", (ls == LD_DOLOAD ? " load" : "no load"));
3149
3150     init_test(ls);
3151
3152     hres = create_document(&unk);
3153     if(FAILED(hres))
3154         return;
3155     doc_unk = unk;
3156
3157     test_QueryInterface(unk);
3158     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
3159     test_ConnectionPointContainer(unk);
3160     test_Persist(unk);
3161     if(load_state == LD_NO)
3162         test_OnAmbientPropertyChange2(unk);
3163
3164     hres = test_Activate(unk, CLIENTSITE_EXPECTPATH);
3165     if(FAILED(hres)) {
3166         IUnknown_Release(unk);
3167         return;
3168     }
3169
3170     if(load_state == LD_LOADING)
3171         test_download(FALSE, TRUE);
3172
3173     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
3174     test_OleCommandTarget_fail(unk);
3175     test_OleCommandTarget(unk);
3176     test_OnAmbientPropertyChange(unk);
3177     test_Window(unk, TRUE);
3178     test_UIDeactivate();
3179     test_OleCommandTarget(unk);
3180     test_Window(unk, TRUE);
3181     test_InPlaceDeactivate(unk, TRUE);
3182
3183     /* Calling test_OleCommandTarget here couses Segmentation Fault with native
3184      * MSHTML. It doesn't with Wine. */
3185
3186     test_Window(unk, FALSE);
3187     test_Hide();
3188     test_InPlaceDeactivate(unk, FALSE);
3189     test_CloseView();
3190     test_Close(unk, FALSE);
3191
3192     /* Activate HTMLDocument again */
3193     test_Activate(unk, CLIENTSITE_SETNULL);
3194     test_Window(unk, TRUE);
3195     test_OleCommandTarget(unk);
3196     test_UIDeactivate();
3197     test_InPlaceDeactivate(unk, TRUE);
3198     test_Close(unk, FALSE);
3199
3200     /* Activate HTMLDocument again, this time without UIActivate */
3201     call_UIActivate = FALSE;
3202     test_Activate(unk, CLIENTSITE_SETNULL);
3203     test_Window(unk, TRUE);
3204     test_UIDeactivate();
3205     test_InPlaceDeactivate(unk, TRUE);
3206     test_CloseView();
3207     test_CloseView();
3208     test_Close(unk, TRUE);
3209     test_OnAmbientPropertyChange2(unk);
3210
3211     if(view)
3212         IOleDocumentView_Release(view);
3213     view = NULL;
3214
3215     ok(IsWindow(hwnd), "hwnd is destroyed\n");
3216
3217     ref = IUnknown_Release(unk);
3218     ok(ref == 0, "ref=%d, expected 0\n", ref);
3219
3220     ok(!IsWindow(hwnd), "hwnd is not destroyed\n");
3221 }
3222
3223 static void test_HTMLDocument_hlink(void)
3224 {
3225     IUnknown *unk;
3226     HRESULT hres;
3227     ULONG ref;
3228
3229     trace("Testing HTMLDocument (hlink)...\n");
3230
3231     init_test(LD_DOLOAD);
3232
3233     hres = create_document(&unk);
3234     if(FAILED(hres))
3235         return;
3236     doc_unk = unk;
3237
3238     test_ConnectionPointContainer(unk);
3239     test_Persist(unk);
3240     test_Navigate(unk);
3241
3242     test_download(FALSE, TRUE);
3243
3244     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
3245     test_exec_onunload(unk);
3246     test_Window(unk, TRUE);
3247     test_InPlaceDeactivate(unk, TRUE);
3248     test_Close(unk, FALSE);
3249
3250     if(view)
3251         IOleDocumentView_Release(view);
3252     view = NULL;
3253
3254     ref = IUnknown_Release(unk);
3255     ok(ref == 0, "ref=%d, expected 0\n", ref);
3256 }
3257
3258 static void test_HTMLDocument_StreamLoad(void)
3259 {
3260     IOleObject *oleobj;
3261     IUnknown *unk;
3262     HRESULT hres;
3263     ULONG ref;
3264
3265     trace("Testing HTMLDocument (IPersistStreamInit)...\n");
3266
3267     init_test(LD_DOLOAD);
3268     load_from_stream = TRUE;
3269
3270     hres = create_document(&unk);
3271     if(FAILED(hres))
3272         return;
3273     doc_unk = unk;
3274
3275     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
3276     ok(hres == S_OK, "Could not get IOleObject: %08x\n", hres);
3277
3278     test_readyState(unk);
3279     test_ConnectionPointContainer(unk);
3280     test_ClientSite(oleobj, CLIENTSITE_EXPECTPATH);
3281     test_DoVerb(oleobj);
3282     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
3283
3284     IOleObject_Release(oleobj);
3285
3286     test_StreamLoad(unk);
3287     test_download(TRUE, FALSE);
3288
3289     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
3290     test_UIDeactivate();
3291     test_InPlaceDeactivate(unk, TRUE);
3292     test_Close(unk, FALSE);
3293
3294     if(view) {
3295         IOleDocumentView_Release(view);
3296         view = NULL;
3297     }
3298
3299
3300     ref = IUnknown_Release(unk);
3301     ok(ref == 0, "ref=%d, expected 0\n", ref);
3302 }
3303
3304 static void test_editing_mode(void)
3305 {
3306     IUnknown *unk;
3307     IOleObject *oleobj;
3308     HRESULT hres;
3309     ULONG ref;
3310
3311     trace("Testing HTMLDocument (edit)...\n");
3312
3313     init_test(LD_DOLOAD);
3314
3315     hres = create_document(&unk);
3316     if(FAILED(hres))
3317         return;
3318     doc_unk = unk;
3319
3320     hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
3321     ok(hres == S_OK, "Could not get IOleObject: %08x\n", hres);
3322
3323     test_readyState(unk);
3324     test_ConnectionPointContainer(unk);
3325     test_ClientSite(oleobj, CLIENTSITE_EXPECTPATH);
3326     test_DoVerb(oleobj);
3327     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
3328
3329     IOleObject_Release(oleobj);
3330
3331     test_exec_editmode(unk);
3332     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED);
3333     test_download(TRUE, FALSE);
3334     test_MSHTML_QueryStatus(unk, OLECMDF_SUPPORTED|OLECMDF_ENABLED);
3335
3336     test_exec_fontname(unk, NULL, wszTimesNewRoman);
3337     test_exec_fontname(unk, wszArial, wszTimesNewRoman);
3338     test_timer(EXPECT_UPDATEUI);
3339     test_exec_fontname(unk, NULL, wszArial);
3340
3341     test_exec_noargs(unk, IDM_JUSTIFYRIGHT);
3342     test_timer(EXPECT_UPDATEUI);
3343     if(!nogecko)
3344         test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYRIGHT,
3345                          OLECMDF_SUPPORTED|OLECMDF_ENABLED|OLECMDF_LATCHED);
3346
3347     test_exec_noargs(unk, IDM_JUSTIFYCENTER);
3348     test_timer(EXPECT_UPDATEUI);
3349     test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYRIGHT,
3350                      OLECMDF_SUPPORTED|OLECMDF_ENABLED);
3351     if(!nogecko)
3352         test_QueryStatus(unk, &CGID_MSHTML, IDM_JUSTIFYCENTER,
3353                          OLECMDF_SUPPORTED|OLECMDF_ENABLED|OLECMDF_LATCHED);
3354
3355     test_exec_noargs(unk, IDM_HORIZONTALLINE);
3356     test_timer(EXPECT_UPDATEUI);
3357     test_QueryStatus(unk, &CGID_MSHTML, IDM_HORIZONTALLINE,
3358                      OLECMDF_SUPPORTED|OLECMDF_ENABLED);
3359
3360     test_UIDeactivate();
3361     test_InPlaceDeactivate(unk, TRUE);
3362     test_Close(unk, FALSE);
3363
3364     if(view) {
3365         IOleDocumentView_Release(view);
3366         view = NULL;
3367     }
3368
3369     ref = IUnknown_Release(unk);
3370     ok(ref == 0, "ref=%d, expected 0\n", ref);
3371 }
3372
3373 static void register_protocol(void)
3374 {
3375     IInternetSession *session;
3376     HRESULT hres;
3377
3378     static const WCHAR wsz_winetest[] = {'w','i','n','e','t','e','s','t',0};
3379
3380     hres = CoInternetGetSession(0, &session, 0);
3381     ok(hres == S_OK, "CoInternetGetSession failed: %08x\n", hres);
3382
3383     hres = IInternetSession_RegisterNameSpace(session, &ClassFactory, &IID_NULL,
3384             wsz_winetest, 0, NULL, 0);
3385     ok(hres == S_OK, "RegisterNameSpace failed: %08x\n", hres);
3386
3387     IInternetSession_Release(session);
3388 }
3389
3390 static void gecko_installer_workaround(BOOL disable)
3391 {
3392     HKEY hkey;
3393     DWORD res;
3394
3395     static BOOL has_url = FALSE;
3396     static char url[2048];
3397
3398     if(!disable && !has_url)
3399         return;
3400
3401     res = RegOpenKey(HKEY_CURRENT_USER, "Software\\Wine\\MSHTML", &hkey);
3402     if(res != ERROR_SUCCESS)
3403         return;
3404
3405     if(disable) {
3406         DWORD type, size = sizeof(url);
3407
3408         res = RegQueryValueEx(hkey, "GeckoUrl", NULL, &type, (PVOID)url, &size);
3409         if(res == ERROR_SUCCESS && type == REG_SZ)
3410             has_url = TRUE;
3411
3412         RegDeleteValue(hkey, "GeckoUrl");
3413     }else {
3414         RegSetValueEx(hkey, "GeckoUrl", 0, REG_SZ, (PVOID)url, lstrlenA(url)+1);
3415     }
3416
3417     RegCloseKey(hkey);
3418 }
3419
3420 START_TEST(htmldoc)
3421 {
3422     gecko_installer_workaround(TRUE);
3423
3424     CoInitialize(NULL);
3425     container_hwnd = create_container_window();
3426     register_protocol();
3427
3428     test_HTMLDocument(LD_NO);
3429     test_HTMLDocument(LD_DOLOAD);
3430     test_HTMLDocument_hlink();
3431     test_HTMLDocument_StreamLoad();
3432     test_editing_mode();
3433
3434     DestroyWindow(container_hwnd);
3435     CoUninitialize();
3436
3437     gecko_installer_workaround(FALSE);
3438 }