From f8a1b7e5a5c375af628cb622c0f05c283b24dc89 Mon Sep 17 00:00:00 2001
From: Huw Davies <huw@codeweavers.com>
Date: Thu, 16 Apr 2009 12:14:19 +0100
Subject: [PATCH] ole32/tests: Tests that show the consumer data object isn't a
 singleton.

---
 dlls/ole32/tests/clipboard.c | 51 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

diff --git a/dlls/ole32/tests/clipboard.c b/dlls/ole32/tests/clipboard.c
index fc55d385a40..aadc1ece054 100644
--- a/dlls/ole32/tests/clipboard.c
+++ b/dlls/ole32/tests/clipboard.c
@@ -862,8 +862,59 @@ static void test_set_clipboard(void)
     OleUninitialize();
 }
 
+static void test_consumer_refs(void)
+{
+    HRESULT hr;
+    IDataObject *src, *get1, *get2, *get3;
+    LONG refs;
+
+    OleInitialize(NULL);
+
+    hr = DataObjectImpl_CreateText("data1", &src);
+    ok(hr == S_OK, "got %08x\n", hr);
+
+    hr = OleSetClipboard(src);
+    ok(hr == S_OK, "got %08x\n", hr);
+
+    hr = OleGetClipboard(&get1);
+    ok(hr == S_OK, "got %08x\n", hr);
+
+    hr = OleGetClipboard(&get2);
+    ok(hr == S_OK, "got %08x\n", hr);
+
+    ok(get1 == get2, "data objects differ\n");
+    refs = IDataObject_Release(get2);
+todo_wine
+    ok(refs == 1, "got %d\n", refs);
+
+    OleFlushClipboard();
+
+    hr = OleGetClipboard(&get2);
+    ok(hr == S_OK, "got %08x\n", hr);
+
+todo_wine
+    ok(get1 != get2, "data objects match\n");
+
+    OleSetClipboard(NULL);
+
+    hr = OleGetClipboard(&get3);
+    ok(hr == S_OK, "got %08x\n", hr);
+
+todo_wine {
+    ok(get1 != get3, "data objects match\n");
+    ok(get2 != get3, "data objects match\n");
+}
+
+    IDataObject_Release(get3);
+    IDataObject_Release(get2);
+    IDataObject_Release(get1);
+    IDataObject_Release(src);
+
+    OleUninitialize();
+}
 
 START_TEST(clipboard)
 {
     test_set_clipboard();
+    test_consumer_refs();
 }
-- 
2.11.4.GIT