diff options
author | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-25 23:48:17 -0400 |
---|---|---|
committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-28 07:52:54 -0400 |
commit | 89ed54ec8850bb3012c89c91d076a34837ca737e (patch) | |
tree | ccd5e635bed26b9726c898ba30fd15a604047650 /test/clojure/test_clojure/java/shell.clj | |
parent | 46701cdb79d3e6e1b03e40f7e58f1019dc69be43 (diff) |
tweaking what gets exposed (javadoc #357)
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
Diffstat (limited to 'test/clojure/test_clojure/java/shell.clj')
-rw-r--r-- | test/clojure/test_clojure/java/shell.clj | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/test/clojure/test_clojure/java/shell.clj b/test/clojure/test_clojure/java/shell.clj index a8c6f0a0..777698e2 100644 --- a/test/clojure/test_clojure/java/shell.clj +++ b/test/clojure/test_clojure/java/shell.clj @@ -1,3 +1,11 @@ +; Copyright (c) Rich Hickey. All rights reserved. +; The use and distribution terms for this software are covered by the +; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) +; which can be found in the file epl-v10.html at the root of this distribution. +; By using this software in any fashion, you are agreeing to be bound by +; the terms of this license. +; You must not remove this notice, or any other, from this software. + (ns clojure.test-clojure.java.shell (:use clojure.test [clojure.java.shell :as sh]) @@ -5,10 +13,10 @@ (deftest test-parse-args (are [x y] (= x y) - {:cmd [nil] :out "UTF-8" :dir nil :env nil} (#'sh/parse-args []) - {:cmd ["ls"] :out "UTF-8" :dir nil :env nil} (#'sh/parse-args ["ls"]) - {:cmd ["ls" "-l"] :out "UTF-8" :dir nil :env nil} (#'sh/parse-args ["ls" "-l"]) - {:cmd ["ls"] :out "ISO-8859-1" :dir nil :env nil} (#'sh/parse-args ["ls" :out "ISO-8859-1"]))) + [[] {:out "UTF-8" :dir nil :env nil}] (#'sh/parse-args []) + [["ls"] {:out "UTF-8" :dir nil :env nil}] (#'sh/parse-args ["ls"]) + [["ls" "-l"] {:out "UTF-8" :dir nil :env nil}] (#'sh/parse-args ["ls" "-l"]) + [["ls"] {:out "ISO-8859-1" :dir nil :env nil}] (#'sh/parse-args ["ls" :out "ISO-8859-1"]))) (deftest test-with-sh-dir (are [x y] (= x y) |