account detail - web: e2e testing

.gitignore

@@ -14,3 +14,5 @@ pom.xml.asc
 .cpcache/
 *DS_Store
 *~
+*#*
+/logs/

dev/user.clj

@@ -1,5 +1,9 @@
 (ns user
-  (:require [mount.core :as mount]
+  (:require [clojure.tools.namespace.repl :as tn]
+            [mount.core :as mount]
+            [io.pedestal.http :as http]
+            [io.pedestal.test :as test]
+            [accounts.web.server :as server]
             [accounts.db.conn :as c]
             [accounts.logging :as l]
             [accounts.db.queries :as q]))
@@ -11,3 +15,39 @@
 
 (defn stop []
   (mount/stop))
+
+(defn refresh []
+  (stop)
+  (tn/refresh))
+
+(defn refresh-all []
+  (stop)
+  (tn/refresh-all))
+
+(defn go
+  "starts all states defined by defstate"
+  []
+  (start)
+  :ready)
+
+(defn reset
+  "stops all states defined by defstate, reloads modified source files, and restarts the states"
+  []
+  (stop)
+  (tn/refresh :after 'user/go)
+  )
+
+(mount/in-clj-mode)
+
+
+;###############################################################
+;
+; Utils
+;
+;###############################################################
+
+(defn test-request [verb url]
+  (test/response-for (::http/service-fn server/server) verb url))
+
+(defn account-view []
+  (test-request :get "/accounts/account-1"))

resources/config.edn

@@ -1,3 +1,3 @@
-{:datomic
- {:uri "datomic:mem://accounts"}
+{:datomic {:uri "datomic:mem://accounts"}
+ :www {:port 8890}
  }

src/accounts/accounts.clj

@@ -1,5 +1,7 @@
 (ns accounts.accounts
-  (:gen-class))
+  (:require [mount.core :as mount])
+  (:gen-class)
+  )
 
 (defn -main
   "I don't do a whole lot ... yet."

src/accounts/web/interceptors/display.clj

@@ -10,9 +10,9 @@
        context))})
 
 (def account-view
-  {:name :account-view
+  {:name :display-account-view
    :leave
    (fn [context]
-     (if-let [the-account (get-in context [:request :accounts :report])]
+     (if-let [the-account (get-in context [:retrieved :accounts :report])]
        (assoc context :result the-account)
        context))})

src/accounts/web/interceptors/sets.clj

@@ -4,5 +4,4 @@
 
 (def account-view
   (into [] (concat base/common-interceptors
-                   account-view/validate
-                   account-view/display)))
+                   account-view/set)))

src/accounts/web/interceptors/sets/account-view.clj → src/accounts/web/interceptors/sets/account_view.clj

@@ -13,3 +13,7 @@
 (def display
   [display/entity-render
    display/account-view])
+
+(def set
+  (into [] (concat display
+                   validate)))

test/accounts/web/interceptors/display_test.clj

@@ -12,7 +12,7 @@
 
 (deftest can-account-view
   (testing "account view"
-    (let [context-1 {:request {:accounts {:report "account-1"}}}
-          context-2 {:request {:accounts {:debit "account-1"}}}]
+    (let [context-1 {:retrieved {:accounts {:report "account-1"}}}
+          context-2 {:retrieved {:accounts {:debit "account-1"}}}]
       (is (= "account-1" (:result ((:leave account-view) context-1))))
       (is (= context-2 ((:leave account-view) context-2))))))