From bbd01dc4a9a219ff3fe3189ac6abba805c31500f Mon Sep 17 00:00:00 2001
From: Kristin Rutenkolk <kristin.rutenkolk@hhu.de>
Date: Mon, 28 Oct 2024 14:35:40 +0100
Subject: [PATCH] add equivalence tests

---
 test/clj/coffi/mem_test.clj | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/test/clj/coffi/mem_test.clj b/test/clj/coffi/mem_test.clj
index 6a90e59..3f531ad 100644
--- a/test/clj/coffi/mem_test.clj
+++ b/test/clj/coffi/mem_test.clj
@@ -62,6 +62,9 @@
     {:a [5 6] :b [10 11] :c [15 16]} #(merge-with vector % {:a 6 :b 11 :c 16})
     {:a [5 6] :b [10 11] :c [15 16]} #(merge-with vector % (TestType. 6 11 16))
     [:a 5] #(find % :a)
-    nil #(find % :d)))
+    nil #(find % :d)
+    {:a 5 :b 10 :c 15} identity
+    (TestType. 5 10 15) identity
+    (TestType. 5 10 15) (fn [s] {:a 5 :b 10 :c 15})))