dmscript/tests: Test unimplemented IPersistStream methods in DMScript.

dlls/dmscript/script.c

@@ -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;
 }
 

dlls/dmscript/tests/dmscript.c

@@ -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();
 }