aboutsummaryrefslogtreecommitdiff
path: root/modules/shell/src/test/clojure/clojure/contrib/test_shell.clj
diff options
context:
space:
mode:
Diffstat (limited to 'modules/shell/src/test/clojure/clojure/contrib/test_shell.clj')
-rw-r--r--modules/shell/src/test/clojure/clojure/contrib/test_shell.clj41
1 files changed, 0 insertions, 41 deletions
diff --git a/modules/shell/src/test/clojure/clojure/contrib/test_shell.clj b/modules/shell/src/test/clojure/clojure/contrib/test_shell.clj
deleted file mode 100644
index 120093e7..00000000
--- a/modules/shell/src/test/clojure/clojure/contrib/test_shell.clj
+++ /dev/null
@@ -1,41 +0,0 @@
-(ns clojure.contrib.test-shell
- (:use clojure.test
- clojure.contrib.shell)
- (:import (java.io File)))
-
-; workaroung to access private parse-args. Better way?
-(def parse-args ((ns-interns 'clojure.contrib.shell) 'parse-args))
-(def as-file ((ns-interns 'clojure.contrib.shell) 'as-file))
-(def as-env-string ((ns-interns 'clojure.contrib.shell) 'as-env-string))
-
-(deftest test-parse-args
- (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"])
- {:cmd ["ls"] :out "ISO-8859-1" :dir nil :env nil} (parse-args ["ls" :out "ISO-8859-1"])
-))
-
-(deftest test-with-sh-dir
- (are [x y] (= x y)
- nil *sh-dir*
- "foo" (with-sh-dir "foo" *sh-dir*)))
-
-(deftest test-with-sh-env
- (are [x y] (= x y)
- nil *sh-env*
- {:KEY "VAL"} (with-sh-env {:KEY "VAL"} *sh-env*)))
-
-(deftest test-as-env-string
- (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"}))
- ["FOO_KEYWORD=BAR"] (seq (as-env-string {:FOO_KEYWORD "BAR"}))))
-
-
-(deftest test-as-file
- (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