From: Eric Schulte <schulte.eric@gmail.com>
Date: Fri, 20 Dec 2013 04:06:06 +0000 (-0700)
Subject: testing a hello-world server
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/5ceb982abcb2c54f8792f9330d21f28968b04f18?hp=40541d97e366d9f853dc386aa37dde29dc1c23db

testing a hello-world server
---

diff --git a/emacs-web-server-test.el b/emacs-web-server-test.el
index 594d0c27b..efe0cb303 100644
--- a/emacs-web-server-test.el
+++ b/emacs-web-server-test.el
@@ -25,6 +25,25 @@
                                    (buffer-string))
                             (kill-buffer buf)))))))))
 
+(defvar ews-test-port 8999)
+
+(ert-deftest ews/hello-world-server ()
+  "Test that a simple hello-world server responds."
+  (lexical-let
+      ((server
+        (ews-start
+         '(((lambda (_) t) .
+            (lambda (proc request)
+              (ews-response-header proc 200 '("Content-type" . "text/plain"))
+              (process-send-string proc "hello world")
+              :finished)))
+         ews-test-port)))
+    (ews-test-run-asynch
+     (lambda (response)
+       (should (string= response "hello world"))
+       (ews-stop server))
+     "curl" "-s" (format "localhost:%d" ews-test-port))))
+
 (ert-deftest ews/keyword-style-handler ()
   "Ensure that a simple keyword-style handler matches correctly."
   (should t)                            ; should match one