From b2b6453d4e8a966a66c51eb22b5bf46a2587b4e7 Mon Sep 17 00:00:00 2001 From: "Stephen C. Gilardi" Date: Mon, 26 Mar 2012 01:32:15 -0400 Subject: [PATCH] test resolve-return --- test/robert/test/bruce.clj | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/test/robert/test/bruce.clj b/test/robert/test/bruce.clj index 6573809..b54ae75 100644 --- 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"