diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2009-06-23 23:29:33 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2009-06-23 23:29:33 -0400 |
| commit | 85c4905b3ccb94dfdb2272e92de6ba1051e304e3 (patch) | |
| tree | e4760e28748b1ad88786cb5dab8a8941944ee095 /src/clojure/contrib/test_clojure/other_functions.clj | |
| parent | 6ad3cf6dc28f738ba06ada5824e2be05559ea0f9 (diff) | |
gtic: updated clojure tests to new template syntax, commented out
"all-are" tests
Diffstat (limited to 'src/clojure/contrib/test_clojure/other_functions.clj')
| -rw-r--r-- | src/clojure/contrib/test_clojure/other_functions.clj | 4 |
1 files changed, 2 insertions, 2 deletions
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 )) |