Skip to content

Commit

Permalink
Be quiet about skipping tests
Browse files Browse the repository at this point in the history
  • Loading branch information
@snoe
snoe committed Jan 8, 2025
1 parent f8d80bc commit bb200fc
Showing 1 changed file with 6 additions and 16 deletions.
22 changes: 6 additions & 16 deletions src/mb/hawk/core.clj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -83,25 +83,15 @@
(let [tags-set (fn [ns-or-var]
(not-empty (set (keys (meta ns-or-var)))))
excluded-tag? (when-let [exclude-tags (not-empty (set (:exclude-tags options)))]
(when-let [disallowed-tags (not-empty (set/intersection exclude-tags (tags-set ns-or-var)))]
(printf
"Skipping `%s` due to excluded tag(s): %s\n"
(if (var? ns-or-var)
(:name (meta ns-or-var))
(ns-name ns-or-var))
(->> disallowed-tags sort (str/join ",")))
true))
(when (not-empty (set/intersection exclude-tags (tags-set ns-or-var)))
:exclude))
missing-tag? (when (var? ns-or-var)
(let [varr ns-or-var]
(when-let [only-tags (not-empty (set (:only-tags options)))]
(when-let [missing-tags (not-empty (set/difference only-tags
(tags-set (:ns (meta varr)))
(tags-set varr)))]
(printf
"Skipping `%s` due to missing only tag(s): %s\n"
(:name (meta varr))
(->> missing-tags sort (str/join ",")))
true))))]
(when (not-empty (set/difference only-tags
(tags-set (:ns (meta varr)))
(tags-set varr)))
:only))))]
(or excluded-tag? missing-tag?)))

(defn- find-tests-for-namespace-symbol
Expand Down

0 comments on commit bb200fc

Please sign in to comment.