Add test showing Reagent running disposed reactions

project.clj

@@ -18,6 +18,7 @@
 
   :profiles {:test {:cljsbuild
                     {:builds {:client {:source-paths ["test"]
+                                       :notify-command ["node" "bin/gen-site.js"]
                                        :compiler
                                        {:main "reagenttest.runtests"}}}}}
 

test/reagenttest/testratom.cljs

@@ -100,8 +100,8 @@
       (dispose co))
     (let [!x (rv/atom 0)
           !co (rv/make-reaction #(inc @!x) :auto-run true)]
-      (is (= 1 @!co) "CO has correct value on first deref") 
-      (swap! !x inc) 
+      (is (= 1 @!co) "CO has correct value on first deref")
+      (swap! !x inc)
       (is (= 2 @!co) "CO auto-updates")
       (dispose !co))
     (is (= runs (running)))))
@@ -126,27 +126,27 @@
       (is (= @res (+ 2 @a)))
       (is (= @b-changed 1))
       (is (= @c-changed 0))
-             
+
       (reset! a -1)
       (is (= @res (+ 2 @a)))
       (is (= @b-changed 2))
       (is (= @c-changed 0))
-             
+
       (reset! a 2)
       (is (= @res (+ 10 @a)))
       (is (<= 2 @b-changed 3))
       (is (= @c-changed 1))
-             
+
       (reset! a 3)
       (is (= @res (+ 10 @a)))
       (is (<= 2 @b-changed 3))
       (is (= @c-changed 2))
-             
+
       (reset! a 3)
       (is (= @res (+ 10 @a)))
       (is (<= 2 @b-changed 3))
       (is (= @c-changed 2))
-             
+
       (reset! a -1)
       (is (= @res (+ 2 @a)))
       (dispose res)
@@ -461,3 +461,27 @@
     (r/flush)
     (dispose r1)
     (is (= runs (running)))))
+
+(deftest running-disposed-reactions
+  (let [ra (r/atom 0)
+        run-number (atom 0)
+        disposed? (atom false)
+        r1 (rv/make-reaction (fn []
+                               (swap! run-number inc)
+                               @ra)
+                             :on-dispose (fn [] (reset! disposed? true)))]
+    (is (= @run-number 0))
+    @r1
+    (is (= @run-number 1))
+    (swap! ra inc)
+    (is (= @run-number 1))
+    @r1
+    (is (= @run-number 2))
+    (rv/dispose! r1)
+    (is (true? @disposed?))
+
+    (is (= @run-number 2))
+    (swap! ra inc)
+    @r1
+    ;; An exception or error should be logged here as we are trying to deref a disposed reaction.
+    (is (= @run-number 2))))