From 200719390fe124bcc0a20440f97128a2098df7fb Mon Sep 17 00:00:00 2001
From: Stuart Sierra <mail@stuartsierra.com>
Date: Fri, 21 Jan 2011 14:40:47 -0500
Subject: [PATCH] Add test for nil in case; refs CLJ-702

Signed-off-by: Stuart Halloway <stu@Stuart-Halloways-MacBook-Air.local>
---
 test/clojure/test_clojure/control.clj | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/test/clojure/test_clojure/control.clj b/test/clojure/test_clojure/control.clj
index 868d6ed7a9..305e5121e1 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?