Add a delay feature to simulate slow server.

src/posthere/capture_request.clj

@@ -65,6 +65,31 @@
         (assoc :status status)
         (update-in [:parsed-query-string] dissoc "status"))))
 
+;; ----- Delayed answer -----
+
+(defn- valid-sleep
+  "Esure the requested sleep value is a positive integer "
+  [requested-sleep]
+  (let [sleepmillis (read-string (or requested-sleep "0"))]
+    (if (pos-int? sleepmillis) ; make sure it's positive integer
+      sleepmillis
+      0))) ; defalut value
+
+(defn- handle-sleep
+  "Get the delay value from the query string"
+  [request]
+  (let [requested-sleep-path [:parsed-query-string "sleepmillis"]
+        requested-sleep (get-in request requested-sleep-path)
+        sleepmillis (valid-sleep requested-sleep)]
+    (-> request
+        (assoc :sleepmillis sleepmillis)
+        (update-in [:parsed-query-string] dissoc "sleepmillis")))) ; remove from the query string, we will display with Status
+
+(defn- delaying
+  "Delay the answer"
+  [request]
+  (-> (Thread/sleep (:sleepmillis request))))
+
 ;; ----- Limit Body Size -----
 
 (defn- content-length-OK?
@@ -138,7 +163,8 @@
       (assoc :body (:body request))
       (assoc :invalid-body (:invalid-body request))
       (assoc :body-overflow (:body-overflow request))
-      (assoc :request-method (:request-method request))))
+      (assoc :request-method (:request-method request))
+      (assoc :sleepmillis (:sleepmillis request))))
 
 (defn capture-request
   "
@@ -156,8 +182,11 @@
         (pretty-print-json) ; handle the body data if it's JSON
         (pretty-print-xml) ; handle the body data if it's XML
         (pretty-print-urlencoded) ; handle the body data if it's URL encoded field data
+        (handle-sleep) ;
         (handle-response-status))] ; handle the requested states
     ;; Save the request
     (save-request url-uuid (extract-request-parts processed-request))
+    ;; Delay before answering
+    (delaying processed-request)
     ;; Respond to the HTTP client
     (post-response url-uuid processed-request)))

src/posthere/cljs/posthere.cljs

@@ -176,7 +176,8 @@
       [:div.col-md-6.text-left
         method " " (time-ago result)]
       [:div.col-md-6.text-right
-        "Status: " [:strong (aget result "status")]]]
+        "Status: " [:strong (aget result "status")]
+        "<br/>Delay: " [:strong (aget result "sleepmillis")]]]
     [:div
       [:div.col-md-12.text-left.text-muted
         [:span.result-timestamp (.-timestamp result)]]]]))

src/posthere/templates/_faq.html

@@ -132,6 +132,19 @@ <h4 class="panel-title">
             </div>
         </div>
 
+        <div class="panel panel-default">
+            <div class="panel-heading">
+                <h4 class="panel-title">
+                    <a class="accordion-toggle collapsed" data-toggle="collapse" data-parent="#accordion" href="#collapse8">Can I delay the response?</a>
+                </h4>
+            </div>
+            <div id="collapse8" class="panel-collapse collapse">
+                <div class="panel-body">
+                    <p>Yes. Just add <strong>?sleepmillis=xxx</strong> to the end of your request. For example: <strong>?sleepmillis=1000</strong> to delay 1 second and simulate a slow server.</p>
+                </div>
+            </div>
+        </div>
+
         <div class="panel panel-default">
             <div class="panel-heading">
                 <h4 class="panel-title">