Use a mock http server for test

Author: shafeeq

circle.yml

@@ -4,4 +4,7 @@ machine:
 
 test:
   override:
+    - lein run -m re-crud.mock-http-server:
+        background: true
+    - for i in `seq 120`; do nc -v -w 1 localhost 8000 && break ; sleep 1; done
     - make test

project.clj

@@ -21,14 +21,18 @@
                  [camel-snake-kebab "0.4.0"]
                  [cljsjs/reactable "0.14.1-0"]]
 
+  :profiles {:dev {:dependencies [[http-kit "2.2.0"]
+                                  [bidi "2.0.13"]
+                                  [ring/ring-core "1.5.0"]
+                                  [ring/ring-devel "1.5.0"]
+                                  [ring/ring-json "0.4.0"]]}}
   :plugins [[lein-cljsbuild "1.1.4"]
             [lein-doo "0.1.7"]]
-  :hooks [leiningen.cljsbuild]
-  :min-lein-version "2.5.3"
 
+  :min-lein-version "2.5.3"
   :doo {:paths {:phantom "phantomjs --web-security=false"}}
 
-  :source-paths ["src/cljs"]
+  :source-paths ["test/clj"]
 
   :clean-targets ^{:protect false} ["resources/public/js/compiled" "target"]
 
@@ -43,7 +47,7 @@
                     :closure-defines {goog.DEBUG false}}}
     {:id "test"
      :source-paths ["src/cljs" "test/cljs"]
-     :compiler     {:output-dir      ".cljsbuild/re-crud"
+     :compiler     {:output-dir      ".cljsbuild/re-crud-test"
                     :output-to       "re-crud-test.js"
                     :main            re-crud.test-runner
                     :pretty-print    true}}]})

test/clj/re_crud/mock_http_server.clj

@@ -0,0 +1,41 @@
+(ns re-crud.mock-http-server
+  (:require [org.httpkit.server :as http-server]
+            [bidi.ring :as bidi]
+            [ring.middleware.json :refer [wrap-json-body wrap-json-response]]
+            [ring.util.response :as response]
+            [re-crud.test-data :as data]))
+
+(def server-instance (atom nil))
+
+(defn swagger [_]
+  (response/response data/swagger))
+
+(defn get-user [_]
+  (response/response data/user))
+
+(defn update-user [_]
+  (response/response data/user))
+
+(def handler
+  (bidi/make-handler
+   ["/" [["swagger.json" swagger]
+         ["users" [[true {:get get-user
+                          :patch update-user}]]]]]))
+
+(def server
+  (-> handler
+      (wrap-json-body {:keywords? true :bigdecimals? true})
+      (wrap-json-response)))
+
+(defn start-server []
+  (when-not (some? @server-instance)
+    (reset! server-instance (http-server/run-server #'server {:port 8000}))
+    (println "Web server started at port" 8000)))
+
+(defn stop-server []
+  (when-not (nil? @server-instance)
+     (@server-instance :timeout 100)
+     (reset! server-instance nil)))
+
+(defn -main [& args]
+  (start-server))

test/clj/re_crud/test_data.clj

@@ -0,0 +1,94 @@
+(ns re-crud.test-data
+  (:import [java.sql Timestamp]))
+
+(defn timestamp []
+  (Timestamp. (System/currentTimeMillis)))
+
+(def swagger
+  {"swagger" "2.0"
+   "info"
+   {"title" "re-crud-example API"
+    "description" "This is a regular CRUD app for demo purposes"
+    "version" "1.0.0"}
+   "host" "localhost:8000"
+   "schemes" ["https"]
+   "basePath" "/"
+   "produces" ["application/json"]
+   "paths"
+   {"/users"
+    {"get"
+     {"operationId" "listUsers"
+      "summary" "List all Users"
+      "responses"
+      {"200"
+       {"description" "An array of users"
+        "schema" {"type" "array"
+                  "items" {"$ref" "#/definitions/User"}}}}}
+     "post"
+     {"summary" "Create a user"
+      "operationId" "createUser"
+      "responses" {"200" {"description" "Create A user"
+                          "schema" {"$ref" "#/definitions/User"}}}
+      "parameters" [{"name" "body"
+                     "in" "body"
+                     "required" true
+                     "schema" {"$ref" "#/definitions/UserParam"}}]}}
+    "/users/{user-id}"
+    {"get"
+     {"summary" "Get a user"
+      "operationId" "getUser"
+      "responses" {"200" {"description" "A user"
+                          "schema" {"$ref" "#/definitions/User"}}}
+      "parameters" [{"name" "user-id"
+                     "in" "path"
+                     "required" true
+                     "type" "number"
+                     "format" "integer"}]}
+     "patch"
+     {"summary" "Update a user info"
+      "operationId" "updateUser"
+      "responses" {"200" {"description" "Update A user"
+                          "schema" {"$ref" "#/definitions/User"}}}
+      "parameters"
+      [{"name" "user-id"
+        "in" "path"
+        "required" true
+        "type" "number"
+        "format" "integer"}
+       {"name" "UserParam"
+        "in" "body"
+        "required" true
+        "schema" {"$ref" "#/definitions/UserParam"}}]}
+     "delete"
+     {"summary" "Delete a user"
+      "operationId" "deleteUser"
+      "responses" {"204" {"description" "User deleted empty response"}}
+      "parameters" [{"name" "user-id"
+                     "in" "path"
+                     "required" true
+                     "type" "number"
+                     "format" "integer"}]}}}
+   "definitions"
+   {"User"
+    {"type" "object"
+     "properties"
+     {"id" {"type" "integer"}
+      "first_name" {"type" "string"}
+      "last_name" {"type" "string"}
+      "email" {"type" "string"}
+      "created_at" {"type" "string"}
+      "updated_at" {"type" "string"}}}
+    "UserParam"
+    {"type" "object"
+     "properties" {"first_name" {"type" "string"}
+                   "last_name" {"type" "string"}
+                   "email" {"type" "string"}}}}})
+
+(def user
+  {:id 1
+   :first_name "Foo"
+   :last_name "Bar"
+   :email "[email protected]"
+   :created_at (timestamp)
+   :updated_at (timestamp)
+   :url "/user/1"})

test/cljs/re_crud/core_test.cljs

@@ -13,8 +13,8 @@
 
 (defn init []
   (crud/init
-   {"test-service" {:service-host "https://re-crud-example.herokuapp.com"
-                    :swagger-url "https://re-crud-example.herokuapp.com/api/swagger.json"
+   {"test-service" {:service-host "http://localhost:8000"
+                    :swagger-url "http://localhost:8000/swagger.json"
                     :dispatch-on-ready [:on-ready]}}))
 
 (defn create-components [{:keys [db]} _]
@@ -28,23 +28,21 @@
                                           :after (u/create-fx (fn [response]
                                                                 (re-frame/dispatch [:assert! :perform response])))}
                                 :config  {:service-name "test-service"}})]
-    (prn (dissoc component :reagent-component))
-    {:dispatch-n [[:crud-load-component component {:fetch {:user-id 23}
-                                                   :form  {:user-id 23}}]
+    {:dispatch-n [[:crud-load-component component {:fetch {:user-id 1}
+                                                   :form  {:user-id 1}}]
                   [:assert! :create-components]]}))
 
 (defn invoke-perform [{:keys [db]} _]
   (let [data (-> (get-in db (u/resource-path :user.update))
-                 (assoc :user-id 23))]
+                 (assoc :user-id 1))]
     {:db (assoc-in db (u/user-input-path :user.update) data)
      :dispatch [:crud-perform-user.update]}))
 
-
 (defn create-components-assertions []
   (is (some? (registrar/get-handler :event :crud-fetch-user.update)))
   (is (some? (registrar/get-handler :event :crud-perform-user.update))))
 
-(defn assert! [{:keys [db]} [_ thing-to-test test-data]]
+(defn assert! [{:keys [db]} [_ thing-to-test]]
   (swap! things-to-test disj thing-to-test)
   (case thing-to-test
     :create-components (create-components-assertions)