Add a demo for multiple threads writing exceptions at same time

Author: hlship

project.clj

@@ -11,7 +11,8 @@
              :1.11 {:dependencies [[org.clojure/clojure "1.11.1"]]}
              :dev  {:dependencies [[criterium "0.4.6"]
                                    [com.stuartsierra/component "1.0.0"]
-                                   [com.walmartlabs/test-reporting "1.1"]]}
+                                   [com.walmartlabs/test-reporting "1.1"]
+                                   [org.clojure/core.async "1.5.648"]]}
              :lein {:dependencies [[leiningen "2.9.8"]]}}
   :aliases {"release" ["do"
                        "clean,"

test/demo.clj

@@ -4,6 +4,7 @@
     [io.aviso.exception :as e]
     io.aviso.component
     [clojure.java.io :as io]
+    [clojure.core.async :refer [chan <!! close! thread]]
     [criterium.core :as c]
     [clojure.test :refer [report]])
   (:import (java.sql SQLException)))
@@ -64,6 +65,15 @@
 
 (comment
 
+  (let [e (make-ex-info)
+        ch (chan)]
+    (dotimes [i 5]
+            (thread
+              (<!! ch)
+              (println (str "Thread #" i))
+              (e/write-exception e)))
+    (close! ch))
+
   (repl/install-pretty-exceptions)
 
   (countdown 10)