diff --git a/test/clj/coffi/mem_test.clj b/test/clj/coffi/mem_test.clj
index b52c1eb..6a90e59 100644
--- a/test/clj/coffi/mem_test.clj
+++ b/test/clj/coffi/mem_test.clj
@@ -29,4 +29,39 @@
   (t/is
    (instance? MemorySegment (mem/serialize "this is a string" ::mem/c-string))))
 
+(t/deftest can-define-struct
+  (t/is
+   (eval
+    `(mem/defstruct ~'TestType [::mem/int ~'a ::mem/byte ~'b]))))
+
+(mem/defstruct TestType [::mem/int a ::mem/byte b ::mem/short c])
+
+(t/deftest can-initialize-struct
+  (t/is (TestType. 5 10 15)))
+
+(t/deftest can-use-common-map-functions
+  (t/are [x y] (= x (y (TestType. 5 10 15)))
+    5  :a
+    10 :b
+    15 :c
+    5  #(% :a)
+    10 #(% :b)
+    15 #(% :c)
+    5  #(get :a)
+    10 #(get :b)
+    15 #(get :c)
+    20 #(get :d 20)
+    nil #(get :d)
+    [:a :b :c] keys
+    [5 10 15]  vals
+    {:a 5 :c 15} #(dissoc % :b)
+    {:a 5 :b 10 :c 0} #(assoc % :c 0)
+    {:a 5 :b 10 :c 15 :d 20} #(assoc % :d 20)
+    [[:a 5] [:b 10] [:c 15]] seq
+    {:a 5 :b 10 :c 15 :d 20} #(merge % {:d 20})
+    {: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)))
+