dmscript/tests: Test unimplemented IPersistStream methods in DMScript.

This commit is contained in:
Michael Stefaniuc 2014-05-27 22:41:10 +02:00 committed by Alexandre Julliard
parent 444fff4343
commit 41b1dce0e2
2 changed files with 28 additions and 2 deletions

View File

@ -430,8 +430,6 @@ static HRESULT WINAPI IDirectMusicScriptImpl_IPersistStream_GetClassID (LPPERSIS
}
static HRESULT WINAPI IDirectMusicScriptImpl_IPersistStream_IsDirty (LPPERSISTSTREAM iface) {
ICOM_THIS_MULTI(IDirectMusicScriptImpl, PersistStreamVtbl, iface);
FIXME("(%p): stub, always S_FALSE\n", This);
return S_FALSE;
}

View File

@ -175,6 +175,33 @@ static void test_COM_scripttrack(void)
while (IDirectMusicTrack_Release(dmt));
}
static void test_dmscript(void)
{
IDirectMusicScript *dms;
IPersistStream *ps;
CLSID class;
ULARGE_INTEGER size;
HRESULT hr;
hr = CoCreateInstance(&CLSID_DirectMusicScript, NULL, CLSCTX_INPROC_SERVER,
&IID_IDirectMusicScript, (void**)&dms);
ok(hr == S_OK, "DirectMusicScript create failed: %08x, expected S_OK\n", hr);
/* Unimplemented IPersistStream methods */
hr = IDirectMusicScript_QueryInterface(dms, &IID_IPersistStream, (void**)&ps);
ok(hr == S_OK, "QueryInterface for IID_IPersistStream failed: %08x\n", hr);
hr = IPersistStream_GetClassID(ps, &class);
ok(hr == E_NOTIMPL, "IPersistStream_GetClassID failed: %08x\n", hr);
hr = IPersistStream_IsDirty(ps);
ok(hr == S_FALSE, "IPersistStream_IsDirty failed: %08x\n", hr);
hr = IPersistStream_GetSizeMax(ps, &size);
ok(hr == E_NOTIMPL, "IPersistStream_GetSizeMax failed: %08x\n", hr);
hr = IPersistStream_Save(ps, NULL, TRUE);
ok(hr == E_NOTIMPL, "IPersistStream_Save failed: %08x\n", hr);
while (IDirectMusicScript_Release(dms));
}
START_TEST(dmscript)
{
CoInitialize(NULL);
@ -187,6 +214,7 @@ START_TEST(dmscript)
}
test_COM();
test_COM_scripttrack();
test_dmscript();
CoUninitialize();
}