diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-06-23 15:48:22 -0400 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-06-23 15:48:22 -0400 |
| commit | 6ad3cf6dc28f738ba06ada5824e2be05559ea0f9 (patch) | |
| tree | 68bdbc8fe670534c0fda5af7e1904e548aaef04e | |
| parent | 6589c4eaf30152d870b7ac516120daacb03aed0d (diff) | |
test_is.clj: modified "are" to use new c.c.template syntax
| -rw-r--r-- | src/clojure/contrib/test_is.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clojure/contrib/test_is.clj b/src/clojure/contrib/test_is.clj index 7175fa2a..8138ce3e 100644 --- a/src/clojure/contrib/test_is.clj +++ b/src/clojure/contrib/test_is.clj @@ -749,7 +749,7 @@ Chas Emerick, Allen Rohner, and Stuart Halloway", See clojure.contrib.template/do-template for an explanation of templates. - Example: (are (= _1 _2) + Example: (are [x y] (= x y) 2 (+ 1 1) 4 (* 2 2)) Expands to: @@ -757,8 +757,8 @@ Chas Emerick, Allen Rohner, and Stuart Halloway", (is (= 4 (* 2 2)))) Note: This breaks some reporting features, such as line numbers." - [expr & args] - `(temp/do-template (is ~expr) ~@args)) + [argv expr & args] + `(temp/do-template ~argv (is ~expr) ~@args)) (defmacro testing "Adds a new string to the list of testing contexts. May be nested, |