test resolve-return

joegallo · Mar 26, 2012 · b2b6453 · b2b6453
1 parent f08c442
commit b2b6453
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/test/robert/test/bruce.clj b/test/robert/test/bruce.clj
@@ -29,6 +29,13 @@
     (is (= Math/E ((:decay (resolve-decay {:decay :exponential})) 1)))
     (is (= 1.6180339887 ((:decay (resolve-decay {:decay :golden-ratio})) 1)))))
 
+(deftest test-return?
+  (testing "return? allows nothing, a function, or a keyword"
+    (is (= always ((resolve-return {}) :return?)))
+    (is (= always ((resolve-return {:return? :always}) :return?)))
+    (is (= truthy? ((resolve-return {:return? :truthy?}) :return?)))
+    (is (= falsey? ((resolve-return {:return? :falsey?}) :return?)))
+    (is (= true? ((resolve-return {:return? true?}) :return?)))))
 
 (deftest test-parse
   (testing "parse handles a variety of arguments correctly"