(test) added shutdown hook in server example

Signed-off-by: Ning Sun <sunng@about.me>
sunng87 · Apr 23, 2016 · 8b53fc0 · 8b53fc0
1 parent b817bc2
commit 8b53fc0
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 7 deletions.
diff --git a/examples/slacker/example/server.clj b/examples/slacker/example/server.clj
@@ -12,8 +12,14 @@
             req))
 
 (defn -main [& args]
-  (start-slacker-server (the-ns 'slacker.example.api) 2104
-                        :interceptors (interceptors [log-function-calls
-                                                     function-call-stats])
-                        :http 4104)
-  (println "Slacker example server started on port 2104, http enabled on 4104"))
+  (let [server (start-slacker-server (the-ns 'slacker.example.api) 2104
+                                     :interceptors (interceptors [log-function-calls
+                                                                  function-call-stats])
+                                     :http 4104)]
+    (.addShutdownHook (Runtime/getRuntime)
+                      (Thread. ^Runnable
+                               (fn []
+                                 (println "About to shutting down slacker server")
+                                 (stop-slacker-server server)
+                                 (println "Server stopped."))))
+    (println "Slacker example server started on port 2104, http enabled on 4104")))
diff --git a/project.clj b/project.clj
@@ -21,8 +21,8 @@
   :plugins [[lein-exec "0.3.1"]
             [codox "0.8.15"]]
   :global-vars {*warn-on-reflection* true}
-  :aliases {"run-example-server" ["with-profile" "default,clojure17,example" "run" "-m" "slacker.example.server"]
-            "run-example-client" ["with-profile" "default,clojure17,example" "run" "-m" "slacker.example.client"]
+  :aliases {"run-example-server" ["trampoline" "with-profile" "default,clojure17,example" "run" "-m" "slacker.example.server"]
+            "run-example-client" ["trampoline" "with-profile" "default,clojure17,example" "run" "-m" "slacker.example.client"]
             "test-all" ["with-profile" "default,clojure15:default,clojure16:default,clojure17:default,clojure18" "test"]}
   :deploy-repositories {"releases" :clojars}
   :codox {:output-dir "target/codox"})