Commits

Anonymous committed 83963cd

Add section to atom tests

Comments (0)

Files changed (1)

 (use clojurian-atom)
 (use test srfi-1 srfi-18)
 
+(test-begin "atom")
+
 (let ((a (atom 10)))
   (test-assert (not (compare-and-set! a 1 2))))
 
 (swap! foo xcons 1)
 
 (test '(1 2 3) (atom-value foo))
+
+(test-end)