Setup logging

This silences Jetty logging, which can be otherwise noisy, especially when using the `:port 0` option.

Author: vemv

project.clj

@@ -5,7 +5,13 @@
             :url "http://www.opensource.org/licenses/mit-license.php"}
   :dependencies [[org.clojure/clojure "1.8.0"]
                  [slingshot "0.12.2"]]
-  :profiles {:test {:dependencies [[ring/ring-jetty-adapter "1.3.2"]]}
+  :profiles {:test {:dependencies   [[ring/ring-jetty-adapter "1.3.2"]
+                                     [ch.qos.logback/logback-classic "1.2.3"
+                                      :exclusions [org.slf4j/slf4j-api]]
+                                     [org.slf4j/jcl-over-slf4j "1.7.26"]
+                                     [org.slf4j/jul-to-slf4j "1.7.26"]
+                                     [org.slf4j/log4j-over-slf4j "1.7.26"]]
+                    :resource-paths ["test-resources"]}
              :1.4 {:dependencies [[org.clojure/clojure "1.4.0"]]}
              :1.5 {:dependencies [[org.clojure/clojure "1.5.0"]]}
              :1.7 {:dependencies [[org.clojure/clojure "1.7.0"]]}

test-resources/logback.xml

@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<configuration>
+  <appender name="STDOUT" class="ch.qos.logback.core.ConsoleAppender">
+    <encoder>
+      <pattern>%d{ISO8601,Europe/London} [%thread] %-5level %logger{36} - %msg%n</pattern>
+    </encoder>
+  </appender>
+
+  <root level="INFO">
+    <appender-ref ref="STDOUT"/>
+  </root>
+
+  <logger name="org.eclipse.jetty.server" level="ERROR"/>
+  <logger name="org.eclipse.jetty.util.log" level="ERROR"/>
+  <logger name="org.eclipse.jetty.util.ssl" level="ERROR"/>
+  <logger name="org.eclipse.jetty.util.component" level="ERROR"/>
+</configuration>

test/setup.clj

@@ -0,0 +1,22 @@
+(ns setup
+  "This namespace will be automaticaly loaded by the test runner"
+  (:require
+   [clojure.string :as string])
+  (:import
+   (org.eclipse.jetty.util MultiException)))
+
+(-> (reify Thread$UncaughtExceptionHandler
+      (uncaughtException [_ thread e]
+        ;; Omit exceptions coming from "Address already in use" because they're meaningless
+        ;; (these happen when one picks port 0, and after one such exception a new port will be retried successfully)
+        (let [omit? (and (instance? MultiException e)
+                         (->> ^MultiException e
+                              .getThrowables
+                              (every? (fn [^Throwable t]
+                                        (-> t .getMessage (string/includes? "Address already in use"))))))]
+          (when-not omit?
+            (-> ^Throwable e .printStackTrace)
+            (when (System/getenv "CI")
+              (System/exit 1))))))
+
+    (Thread/setDefaultUncaughtExceptionHandler))