diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2011-01-21 14:40:47 -0500 |
|---|---|---|
| committer | Stuart Halloway <stu@Stuart-Halloways-MacBook-Air.local> | 2011-02-25 14:34:03 -0500 |
| commit | 200719390fe124bcc0a20440f97128a2098df7fb (patch) | |
| tree | 3211cb02dcb39b575ab2e4b4d93313b08d814c3b | |
| parent | 8cea3d8a2b4b4374668d8d24845de74c505d3a3a (diff) | |
Add test for nil in case; refs CLJ-702
Signed-off-by: Stuart Halloway <stu@Stuart-Halloways-MacBook-Air.local>
| -rw-r--r-- | test/clojure/test_clojure/control.clj | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/clojure/test_clojure/control.clj b/test/clojure/test_clojure/control.clj index 868d6ed7..305e5121 100644 --- a/test/clojure/test_clojure/control.clj +++ b/test/clojure/test_clojure/control.clj @@ -285,6 +285,7 @@ {:r 2 :d 2} :droid #{2 3 4 5} :set [1 [[[2]]]] :deeply-nested + nil :nil :default)] (are [result input] (= result (test-fn input)) :number 1 @@ -305,6 +306,7 @@ :default #{2 3 4 5 6} :droid {:r 2 :d 2} :deeply-nested [1 [[[two]]]] + :nil nil :default :anything-not-appearing-above))) (testing "throws IllegalArgumentException if no match" (is (thrown-with-msg? |