URL shortener: clean up main

Author: zelark

url-shortener/dev/user.clj

@@ -14,3 +14,25 @@
   (when @*server
     (main/stop-server @*server)
     (reset! *server nil)))
+
+(comment
+  (start-server)
+  (stop-server))
+
+
+(comment ; test web api
+  (require '[clojure.java.shell :refer [sh]])
+
+  (sh "curl" "-X" "POST"
+      "-H" "Content-Type: application/json"
+      "http://localhost:8000/"
+      "-d" "{\"url\": \"https://clojurescript.org/\"}")
+
+  (sh "curl" "-X" "PUT"
+      "-H" "Content-Type: application/json"
+      "http://localhost:8000/clj"
+      "-d" "{\"url\": \"https://clojure.org/\"}")
+
+  (sh "curl" "-i" "http://localhost:8000/clj")
+
+  (sh "curl" "http://localhost:8000/list/"))

url-shortener/src/url_shortener/main.clj

@@ -21,26 +21,3 @@
     (.addShutdownHook
      (Runtime/getRuntime)
      (Thread. ^Runnable #(stop-server server)))))
-
-(comment
-  (def server (start-server {:port 8000 :join? false}))
-  (stop-server server)
-  
-  (require '[clojure.java.shell :refer [sh]])
-  
-  (sh "curl" "-X" "POST"
-      "-H" "Content-Type: application/json"
-      "http://localhost:8000/"
-      "-d" "{\"url\": \"https://clojurescript.org/\"}")
-  
-  (sh "curl" "-X" "PUT"
-      "-H" "Content-Type: application/json"
-      "http://localhost:8000/clj"
-      "-d" "{\"url\": \"https://clojure.org/\"}")
-  
-  (sh "curl" "-i" "http://localhost:8000/clj")
-  
-  (sh "curl" "http://localhost:8000/list/")
-  )
-
-