diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2009-06-24 00:01:11 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2009-06-24 00:01:11 -0400 |
| commit | 0930bfdf3361f76d773149b5bd7170c435fe5f20 (patch) | |
| tree | 8445bed1696c397a1e56f3e50f8f356ba3869dd6 /src/clojure/contrib/test_contrib/shell_out.clj | |
| parent | 85c4905b3ccb94dfdb2272e92de6ba1051e304e3 (diff) | |
gtic: updated contrib tests to use new template syntax
Diffstat (limited to 'src/clojure/contrib/test_contrib/shell_out.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/shell_out.clj | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/clojure/contrib/test_contrib/shell_out.clj b/src/clojure/contrib/test_contrib/shell_out.clj index 0bd1afbe..b6cedabb 100644 --- a/src/clojure/contrib/test_contrib/shell_out.clj +++ b/src/clojure/contrib/test_contrib/shell_out.clj @@ -9,7 +9,7 @@ (def as-env-string ((ns-interns 'clojure.contrib.shell-out) 'as-env-string)) (deftest test-parse-args - (are (= _1 _2) + (are [x y] (= x y) {:cmd [nil] :out "UTF-8" :dir nil :env nil} (parse-args []) {:cmd ["ls"] :out "UTF-8" :dir nil :env nil} (parse-args ["ls"]) {:cmd ["ls" "-l"] :out "UTF-8" :dir nil :env nil} (parse-args ["ls" "-l"]) @@ -17,17 +17,17 @@ )) (deftest test-with-sh-dir - (are (= _1 _2) + (are [x y] (= x y) nil *sh-dir* "foo" (with-sh-dir "foo" *sh-dir*))) (deftest test-with-sh-env - (are (= _1 _2) + (are [x y] (= x y) nil *sh-env* {:KEY "VAL"} (with-sh-env {:KEY "VAL"} *sh-env*))) (deftest test-as-env-string - (are (= _1 _2) + (are [x y] (= x y) nil (as-env-string nil) ["FOO=BAR"] (seq (as-env-string {"FOO" "BAR"})) ["FOO_SYMBOL=BAR"] (seq (as-env-string {'FOO_SYMBOL "BAR"})) @@ -35,7 +35,7 @@ (deftest test-as-file - (are (= _1 _2) + (are [x y] (= x y) (File. "foo") (as-file "foo") nil (as-file nil) (File. "bar") (as-file (File. "bar"))))
\ No newline at end of file |