[elpa] 108/119: test chunked/gzipped transfer/content encodings

[Eric Schulte]

eschulte pushed a commit to branch master
in repository elpa.

commit b5e45f7d1438a705db3ae85f502fab08725b548a
Author: Eric Schulte <address@hidden>
Date:   Wed Feb 12 16:38:18 2014 -0700

    test chunked/gzipped transfer/content encodings
---
 web-server-test.el |   32 ++++++++++++++++++++++++++++++--
 1 files changed, 30 insertions(+), 2 deletions(-)

diff --git a/web-server-test.el b/web-server-test.el
index 5c03720..0af26e9 100644
--- a/web-server-test.el
+++ b/web-server-test.el
@@ -13,10 +13,11 @@
 
 (defvar ws-test-port 8999)
 
-(defun ws-test-curl-to-string (url &optional get-params post-params)
+(defun ws-test-curl-to-string (url &optional get-params post-params curl-flags)
   "Curl URL with optional parameters."
   (async-shell-command
-   (format "curl -m 4 %s %s localhost:%s/%s"
+   (format "curl -m 4 %s %s %s localhost:%s/%s"
+           (or curl-flags "")
            (if get-params
                (mapconcat (lambda (p) (format "-d '%s=%s'" (car p) (cdr p)))
                           get-params " ")
@@ -248,4 +249,31 @@ Content-Type: application/octet-stream
   (should (string= (ws-web-socket-handshake "dGhlIHNhbXBsZSBub25jZQ==")
                    "s3pPLMBiTxaQ9kYGzzhZRbK+xOo=")))
 
+(ert-deftest ws/simple-chunked ()
+  "Test a simple server using chunked transfer encoding."
+  (ws-test-with
+      (lambda (request)
+        (with-slots (process) request
+          (ws-response-header process 200
+            '("Content-type" . "text/plain")
+            '("Transfer-Encoding" . "chunked"))
+          (ws-send process "I am chunked")))
+    (should (string= (ws-test-curl-to-string "") "I am chunked"))))
+
+(ert-deftest ws/simple-gzip ()
+  "Test a simple server using gzip content/transfer encoding."
+  (cl-macrolet ((gzipper (header)
+                         `(ws-test-with
+                              (lambda (request)
+                                (with-slots (process) request
+                                  (ws-response-header process 200
+                                    '("Content-type" . "text/plain")
+                                    '(,header . "gzip"))
+                                  (ws-send process "I am zipped")))
+                            (should (string= (ws-test-curl-to-string
+                                              "" nil nil "--compressed")
+                                             "I am zipped")))))
+    (gzipper "Content-Encoding")
+    (gzipper "Transfer-Encoding")))
+
 (provide 'web-server-test)