Browse Source

Merge pull request #1886 from k-r-g/luminus-verify-fix

Luminus: Add routes to pass benchmark verification tests
Mike Smith 9 years ago
parent
commit
1d436d531e
1 changed files with 8 additions and 5 deletions
  1. 8 5
      frameworks/Clojure/luminus/hello/src/hello/routes/home.clj

+ 8 - 5
frameworks/Clojure/luminus/hello/src/hello/routes/home.clj

@@ -2,7 +2,7 @@
   (:require [hello.layout :as layout]
             [hello.db.core :as db]
             [compojure.core :refer [defroutes GET]]
-            [ring.util.response :refer [response]]
+            [ring.util.response :refer [response content-type]]
             [clojure.java.io :as io]))
 
 (def json-serialization
@@ -35,15 +35,18 @@
 
 (def plaintext
   "Test 6: Plaintext"
-  {:status 200
-   :headers {"Content-Type" "text/plain"}
-   :body "Hello, World!"})
+  (->
+    (response "Hello, World!")
+    (content-type "text/plain")))
+
 
 (defroutes home-routes
   (GET "/"                 [] "Hello, World!")
   (GET "/plaintext"        [] plaintext)
   (GET "/json"             [] json-serialization)
   (GET "/db"               [] (single-query-test))
+  (GET "/queries/"         [] (multiple-query-test 1))
   (GET "/queries/:queries" [queries] (multiple-query-test queries))
   (GET "/fortunes"         [] (fortunes))
-  (GET "/updates/:queries"  [queries] (db-update queries)))
+  (GET "/updates/"         [] (db-update 1))
+  (GET "/updates/:queries" [queries] (db-update queries)))