Test non-transactional

straszheimjeffrey · May 8, 2012 · e2baf77 · e2baf77
1 parent fb1deac
commit e2baf77
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/test/kiln/kiln_test.clj b/test/kiln/kiln_test.clj
@@ -373,6 +373,22 @@
     (cleanup-kiln-success k)
     (is (= @store [:b]))))
 
+(defkilntest test-clays-not-run-in-transaction
+  (let [k (new-kiln)
+        a (coal)
+        b (clay :name :b
+                :value (io! (?? a)))
+        c (glaze :name c
+                 :operation (io! (?next)))
+        d (clay :name d
+                :glaze [c]
+                :value (io! (+ (?? a) (?? b))))]
+        (stoke-coal k a 1)
+        (is (= (fire k b)
+               1))
+        (is (= (fire k d)
+               2))))
+
 (comment
 
 (run-tests)