From 5ae3d63cb4470572d63e4579744eee9ec16baea4 Mon Sep 17 00:00:00 2001 From: fogus Date: Wed, 15 Aug 2012 11:42:12 -0400 Subject: [PATCH] Wrote a test to exercise the patch on CLJ-1012 --- test/clojure/test_clojure/other_functions.clj | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/test/clojure/test_clojure/other_functions.clj b/test/clojure/test_clojure/other_functions.clj index 3f82a54..c23e599 100644 --- a/test/clojure/test_clojure/other_functions.clj +++ b/test/clojure/test_clojure/other_functions.clj @@ -121,8 +121,10 @@ ;partial (deftest test-partial - (let [p1 (partial + 20) + (let [p0 (partial inc) + p1 (partial + 20) p2 (partial conj [1 2])] + (is (= 41 (p0 40))) (is (= 40 (p1 20))) (is (= [1 2 3] (p2 3))))) -- 1.7.9.5