From 85c4905b3ccb94dfdb2272e92de6ba1051e304e3 Mon Sep 17 00:00:00 2001
From: Stuart Halloway <stu@thinkrelevance.com>
Date: Tue, 23 Jun 2009 23:29:33 -0400
Subject: gtic: updated clojure tests to new template syntax, commented out
 "all-are" tests

---
 src/clojure/contrib/test_clojure/other_functions.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/clojure/contrib/test_clojure/other_functions.clj')

diff --git a/src/clojure/contrib/test_clojure/other_functions.clj b/src/clojure/contrib/test_clojure/other_functions.clj
index 3138fbd9..17b1f3b8 100644
--- a/src/clojure/contrib/test_clojure/other_functions.clj
+++ b/src/clojure/contrib/test_clojure/other_functions.clj
@@ -19,7 +19,7 @@
   (is (thrown? IllegalArgumentException (identity)))
   (is (thrown? IllegalArgumentException (identity 1 2)))
 
-  (are (= (identity _) _)
+  (are [x] (= (identity x) x)
       nil
       false true
       0 42
@@ -36,7 +36,7 @@
       #{} #{1 2} )
 
   ; evaluation
-  (are (= (identity _1) _2)
+  (are [x y] (= (identity x) y)
       (+ 1 2) 3
       (> 5 0) true ))
 
-- 
cgit v1.2.3-18-g5258