[PATCH 1/2] Added failing test broker/at-root-path before fixing broker iteration

[Kambiz Darabi]

Hi,

I'm not able to push this test to the HEAD repo because of interop
issues between git and darcs.

Please import it, if it is acceptable.

Thanks

---
 test/resources/test-umlaut.txt | 1 +
 test/test-servers.lisp         | 9 +++++++++
 2 files changed, 10 insertions(+)
 create mode 100644 test/resources/test-umlaut.txt

diff --git a/test/resources/test-umlaut.txt b/test/resources/test-umlaut.txt
new file mode 100644
index 0000000..e6b668a
--- /dev/null
+++ b/test/resources/test-umlaut.txt
@@ -0,0 +1 @@
+Schön, daß es klappt.
diff --git a/test/test-servers.lisp b/test/test-servers.lisp
index 58a7290..3379890 100644
--- a/test/test-servers.lisp
+++ b/test/test-servers.lisp
@@ -28,3 +28,12 @@
                                             (emit-html-document (:title "foo")
                                               <h3 ,(or name "The name query parameter is not specified!")>))))
                                       :maximum-worker-count maximum-worker-count)))
+
+
+(def test broker/at-root-path ()
+  (let* ((server (startup-test-server-with-brokers (make-directory-serving-broker "/" (system-relative-pathname :hu.dwim.web-server.test "test/resources"))
+                                                   :maximum-worker-count 2
+                                                   :wait nil)))
+    (unwind-protect
+         (is (string= "Schön, daß es klappt." (string-trim-whitespace (drakma:http-request (format nil "http://localhost:~A/test-umlaut.txt" *test-port*)))))
+      (shutdown-test-server server))))
-- 
1.9.1