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/clojure_set.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/clojure_set.clj')
| -rw-r--r-- | src/clojure/contrib/test_clojure/clojure_set.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/test_clojure/clojure_set.clj b/src/clojure/contrib/test_clojure/clojure_set.clj index 33e9f2c3..3e698406 100644 --- a/src/clojure/contrib/test_clojure/clojure_set.clj +++ b/src/clojure/contrib/test_clojure/clojure_set.clj @@ -12,7 +12,7 @@ (deftest test-union - (are (= _1 _2) + (are [x y] (= x y) (set/union) #{} ; identity @@ -65,7 +65,7 @@ ; at least one argument is needed (is (thrown? IllegalArgumentException (set/intersection))) - (are (= _1 _2) + (are [x y] (= x y) ; identity (set/intersection #{}) #{} (set/intersection #{1}) #{1} |