Merge pull request #314 from frerom/with-meta

Add IWithMeta protocol to RAtom
reagent-project · Oct 20, 2017 · 0b38b44 · 0b38b44
2 parents a1a051f + 5463bd8
commit 0b38b44
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/reagent/ratom.cljs b/src/reagent/ratom.cljs
@@ -146,6 +146,9 @@
   (-swap! [a f x y]      (-reset! a (f state x y)))
   (-swap! [a f x y more] (-reset! a (apply f state x y more)))
 
+  IWithMeta
+  (-with-meta [_ new-meta] (RAtom. state new-meta validator watches))
+
   IMeta
   (-meta [_] meta)
 

diff --git a/test/reagenttest/testratom.cljs b/test/reagenttest/testratom.cljs
@@ -461,3 +461,10 @@
     (r/flush)
     (dispose r1)
     (is (= runs (running)))))
+
+(deftest ratom-with-meta
+  (let [value {:val 1}
+        meta-value {:meta-val 1}
+        state (with-meta (r/atom value) meta-value)]
+    (is (= (meta state) meta-value))
+    (is (= @state value))))