Added redirect-after-post function

@@ -10,6 +10,13 @@
    :headers {"Location" url}
    :body    ""})
 
+(defn redirect-after-post
+  "Returns a Ring response for an HTTP 303 redirect."
+  [url]
+  {:status  303
+   :headers {"Location" url}
+   :body    ""})
+
 (defn response
   "Returns a skeletal Ring response with the given body, status of 200, and no
   headers."

@@ -8,6 +8,10 @@
   (is (= {:status 302 :headers {"Location" "http://google.com"} :body ""}
          (redirect "http://google.com"))))
 
+(deftest test-redirect-after-post
+  (is (= {:status 303 :headers {"Location" "http://example.com"} :body ""}
+         (redirect-after-post "http://example.com"))))
+
 (deftest test-response
   (is (= {:status 200 :headers {} :body "foobar"}
          (response "foobar"))))