                          (contains? test-var-syms (symbol ns name))))))
          )))
 
-(defn execute-cli [{:keys [test-syms help] :as opts}]
+(defn execute-cli [{:keys [test-syms help list] :as opts}]
   (let [test-env
         (-> (ct/empty-env)
             ;; can't think of a proper way to let CLI specify custom reporter?


    (cond
      help
      (println "Usage:\n\t--test=<ns-to-test>,<fqn-symbol-to-test>")

      (seq test-syms)
      (let [test-vars (find-matching-test-vars test-syms)]

      (cond
        (= "--help" arg)
        (assoc opts :help true)

        (= "--list" arg)
        (assoc opts :list true)

        (str/starts-with? arg "--test=")
        (let [test-arg (subs arg 7)
