                  (str/join ", " packages)))
 
       (testRunFinished [result]
-        (println "\nTest run finished!")
+        (println "\n")
+        (when @ignored-tests
+          (println "Ignored:")
+          (println)
+          (doseq [ignored @ignored-tests]
+            (println (style (.getDisplayName ignored) :yellow))
+            (println)))
+
         (when (> (.getFailureCount result) 0)
           (println (result->map result))))
 

        (swap! running-tests conj description))

      (testIgnored [description]
        (print (style "*" :yellow)))

      (testFinished [description]

       set))

(defn- run-listener [packages]
  (let [running-tests (atom #{})
        ignored-tests (atom #{})]
    (proxy [RunListener]
        []
      (testRunStarted [description]
