eschulte pushed a commit to branch master
in repository elpa.
commit a09c4ec04fbd0afa1d39d082c7c6794557843ac1
Author: Eric Schulte <schulte.e...@gmail.com>
Date: Sun Jan 5 12:04:26 2014 -0700
test large file upload (w/o network chunking)
---
web-server-test.el | 29 +++++++++++++++++++++++++++++
1 files changed, 29 insertions(+), 0 deletions(-)
diff --git a/web-server-test.el b/web-server-test.el
index 3a889ce..ee80ae9 100644
--- a/web-server-test.el
+++ b/web-server-test.el
@@ -208,4 +208,33 @@ Connection: keep-alive
(cons :BASIC (cons username password)))))
(ws-stop server))))
+(ert-deftest ws/parse-large-file-upload ()
+ "Test that `ws-parse-request' can handle at large file upload.
+At least when it comes in a single chunk."
+ (let* ((long-string (mapconcat #'int-to-string (number-sequence 0 20000) "
"))
+ (long-request
+ (format "POST / HTTP/1.1
+User-Agent: curl/7.34.0
+Host: localhost:9008
+Accept: */*
+Content-Length: 9086
+Expect: 100-continue
+Content-Type: multipart/form-data; boundary=----------------e458fb665704290b
+
+------------------e458fb665704290b
+Content-Disposition: form-data; name=\"file\"; filename=\"-\"
+Content-Type: application/octet-stream
+
+%s
+------------------e458fb665704290b--
+
+" long-string))
+ (server (ws-start nil ws-test-port))
+ (request (make-instance 'ws-request)))
+ (unwind-protect
+ (progn (ws-parse-request request long-request)
+ (should (string= long-string
+ (cdr (assoc 'content (cdr (assoc "file"
(headers request))))))))
+ (ws-stop server))))
+
(provide 'web-server-test)
