count test vars for cljs.test

count snipplet

(ns karma.macros
  (:require [cljs.analyzer.api :as ana-api]))

(defmacro ns-metas [re]
  (mapv (fn [ns]
          `(ns-interns ~['quote ns]))
        (filter #(re-matches re (str %))
                (ana-api/all-ns))))

-----------------------------------------------------------------

(ns karma-adapter
  (:require your.app.components-test
            your.app.another-ns-under-test)
            [karma.macros :refer-macros [ns-metas]])
            
(defn count-test-vars [ns-meta-list]
  (reduce + (for [ns-meta ns-meta-list]
              (count (filter (fn [[_ v]] (:test (meta v))) ns-meta)))))

{:total (count-test-vars (ns-metas #"your.app.*-test$"))}