Added simple smoke test for Jetty adapter

@@ -5,4 +5,6 @@
                  [ring/ring-servlet "0.3.0"]
                  [org.mortbay.jetty/jetty "6.1.14"]
                  [org.mortbay.jetty/jetty-util "6.1.14"]]
-  :dev-dependencies [[lein-clojars "0.6.0"]])
+  :dev-dependencies [[lein-clojars "0.6.0"]
+                     [swank-clojure "1.2.1"]
+                     [clj-http "0.1.1"]])

@@ -0,0 +1,20 @@
+(ns ring.adapter.jetty-test
+  (:use clojure.test
+        ring.adapter.jetty)
+  (:require [clj-http.client :as http]))
+
+(defn- hello-world [request]
+  {:status  200
+   :headers {"Content-Type" "text/plain"}
+   :body    "Hello World"})
+
+(deftest jetty-test
+  (let [server (run-jetty hello-world {:port 4347, :join? false})]
+    (try
+      (Thread/sleep 2000)
+      (let [response (http/get "http://localhost:4347")]
+        (is (= (:status response) 200))
+        (is (.startsWith (get-in response [:headers "content-type"])
+                         "text/plain"))
+        (is (= (:body response) "Hello World\n")))
+      (finally (.stop server)))))