Split tests

split_tests.clj

(defn split-tests [[_deftest test-name & args]]
  (into []
        (comp (mapcat (fn split* [expr]
                        (case (first expr)
                          is (let [[_is assert-expr message] expr]
                               [(if message
                                  (list 'testing message
                                        (list 'is assert-expr))
                                  (list 'is assert-expr))])

                          testing (let [[_testing message & exprs] expr]
                                    (for [expr (mapcat split* exprs)]
                                      (list 'testing message expr)))

                          #_else
                          [expr])))
              (map-indexed (fn [i expr]
                             (list (symbol "deftest ^:parallel")
                                   (symbol (str test-name "-" (inc i)))
                                   expr))))
        args))