 
 (defmacro with-private-fns [[ns fns] & tests]
   "Refers private fns from ns and runs tests in context."
-    `(let ~(reduce #(conj %1 %2 `(ns-resolve '~ns '~%2)) [] fns)
-         ~@tests))
+  `(let ~(reduce #(conj %1 %2 `(ns-resolve '~ns '~%2)) [] fns)
+	 ~@tests))
 
 (with-private-fns [control.core [perform spawn await-process]]
   (deftest test-perform
 	(deftask :test "test-task"
-		  [a b]
-		  (+ a b))
+	  [a b]
+	  (+ a b))
 	(let [t (:test @tasks)]
 	  (is (= 10 (perform 1 2 t :test '(3 4))))))
   (deftest test-spawn

(deftest test-task
  (is (= 0 (count @tasks)))
  (deftask :test "test task"
		[]
		(+ 1 2))
  (is (= 1 (count @tasks)))
  (is (= 0 (count @clusters)))
  (is (function? (:test @tasks)))


(defn- arg-count [f] (let [m (first (.getDeclaredMethods (class f))) p (.getParameterTypes m)] (alength p)))
(deftest test-gen-log
  (is (= "\033[1;31mlocalhost:\033[1;32mssh: \033[0mtest" (gen-log "localhost" "ssh" "test")))
  (is (= "\033[1;31ma.domain.com:\033[1;32mscp: \033[0mhello world" (gen-log "a.domain.com" "scp" "hello world"))))

(deftest test-ssh-client
  (is (= "apple@localhost" (ssh-client "localhost" "apple")))
