Merge pull request #294 from lambdaisland/alys/fix-no-test-message

Fix "no tests" message

Author: alysbrooks

src/kaocha/api.clj

@@ -99,12 +99,19 @@
           (with-bindings (config/binding-map config)
             (let [config (resolve-reporter config)]
               (let [test-plan (test-plan config)]
+                
                 (when-not (some #(or (hierarchy/leaf? %)
                                      (::testable/load-error %))
                                 (testable/test-seq test-plan))
-                  (output/warn (str "No tests were found, make sure :test-paths and "
-                                    ":ns-patterns are configured correctly in tests.edn."))
+                  (if (not (zero? (count (filter ::testable/skip (testable/test-seq-with-skipped test-plan)))))
+                    (output/warn (format (str "All %d tests were skipped."
+                                              " Check for misspelled settings in your Kaocha test configuration"
+                                              " or incorrect focus or skip filters.")
+                                         (count (testable/test-seq-with-skipped test-plan))))
+                    (output/warn (str "No tests were found. This may be an issue in your Kaocha test configuration."
+                                      " To investigate, check the :test-paths and :ns-patterns keys in tests.edn.")))
                   (throw+ {:kaocha/early-exit 0 }))
+                
                 (when (find-ns 'matcher-combinators.core)
                   (require 'kaocha.matcher-combinators))
 

src/kaocha/testable.clj

@@ -235,3 +235,16 @@
     ;; the outer map. When running on an actual testable, do include it.
     (:kaocha.testable/id testable)
     (cons testable)))
+
+(defn test-seq-with-skipped 
+  [testable]
+ "Create a seq of all tests, including any skipped tests.
+ 
+ Typically you want to look at `test-seq` instead." 
+  (cond->> (mapcat test-seq (or (:kaocha/tests testable)
+                                               (:kaocha.test-plan/tests testable)
+                                               (:kaocha.result/tests testable)))
+    ;; When calling test-seq on the top level test-plan/result, don't include
+    ;; the outer map. When running on an actual testable, do include it.
+    (:kaocha.testable/id testable)
+    (cons testable)))