               err (lsh/stream-to-string proc :err)]
 
           (when-not (zero? (count out))
-            (log {:stdout (str "\t" test-invocation-string ": " out)}))
+            (log {:stdout (str (when *skip* "# ") "\t" test-invocation-string ": " out)}))
 
           (when-not (zero? (count err))
-            (log {:stdout (str "\t" test-invocation-string)})
+            (log {:stdout (str (when *skip* "# ") "\t" test-invocation-string)})
             (log {:stdout ""
                   :stderr err}))
 


(defn run-test
  [t]
  (binding [*dry-run* (or *dry-run* (:skip t))
            *skip* (or *skip* (:skip t))]
    (let [test-invocation-string (lsh/stream-to-string
                                   (apply lsh/proc ["bash" "-c" (str "printf \"" (:invocation t) "\"") :env @genv])
                                   :out)]



(def ^:dynamic *timestamp* nil)
(def ^:dynamic *dry-run* false)
(def ^:dynamic *skip* false)
(def ^:dynamic *log-script* false)
(def this-ns *ns*)
(def genv (atom {}))

