         (swap! running-tests conj description))
 
       (testIgnored [description]
+        (swap! ignored-tests conj description)
         (print (style "*" :yellow)))
 
       (testFinished [description]

       set))

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

                 (str/join ", " packages)))

      (testRunFinished [result]
        (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))))

