Browse Source

Add Compojure plaintext test

Keith R. Gustafson 12 years ago
parent
commit
2bf4e6fc68
1 changed files with 4 additions and 0 deletions
  1. 4 0
      compojure/hello/src/hello/handler.clj

+ 4 - 0
compojure/hello/src/hello/handler.clj

@@ -137,6 +137,10 @@ message text, and then return the results."
 ; Define route handlers
 ; Define route handlers
 (defroutes app-routes
 (defroutes app-routes
   (GET "/" [] "Hello, World!")
   (GET "/" [] "Hello, World!")
+  (GET "/plaintext" []
+       {:status 200
+        :headers {"Content-Type" "text/plain; charset=utf-8"}
+        :body "Hello, World!"})
   (GET "/json" [] (response {:message "Hello, World!"}))
   (GET "/json" [] (response {:message "Hello, World!"}))
   (GET "/db/:queries" [queries] (response (run-queries (get-query-count queries))))
   (GET "/db/:queries" [queries] (response (run-queries (get-query-count queries))))
   (GET "/dbraw/:queries" [queries] (response (run-queries-raw (get-query-count queries))))
   (GET "/dbraw/:queries" [queries] (response (run-queries-raw (get-query-count queries))))