From 5ceb982abcb2c54f8792f9330d21f28968b04f18 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 19 Dec 2013 21:06:06 -0700 Subject: [PATCH 1/1] testing a hello-world server --- emacs-web-server-test.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) 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 -- 2.39.2