Add test sources to their respective modules

1 files changed, 41 insertions, 0 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
new file mode 100644
index 00000000..120093e7
--- /dev/null
+++ b/modules/shell/src/test/clojure/clojure/contrib/test_shell.clj
@@ -0,0 +1,41 @@
+(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