1 files changed, 60 insertions, 0 deletions
diff --git a/benchmarks/parsers.scm b/benchmarks/parsers.scm
new file mode 100644
index 0000000..e4612e2
--- /dev/null
+++ b/benchmarks/parsers.scm
@@ -0,0 +1,60 @@
+(import intarweb chicken.string chicken.time chicken.time.posix
+        chicken.port srfi-13)
+
+(define (mk-headers . strs)
+  (string-append (string-join strs "\r\n") "\r\n\r\n"))
+
+(begin (newline)
+       (print "---  Request parsing ---")
+       (begin (print "Parsing a minimal HTTP/1.0 request many times")
+              (let* ((str (mk-headers "GET / HTTP/1.0"
+                                      "Host: 127.0.0.1:8080"
+                                      "User-Agent: ApacheBench/2.3"))
+                     (p (open-input-string str)))
+                (time (do ((i 0 (add1 i)))
+                          ((= i  100000))
+                        (##sys#setslot p 10 0) ; rewind
+                        (read-request p)))))
+
+       (begin (print "Parsing a realistic HTTP/1.1 request many times")
+              (let* ((str (mk-headers "GET /foo HTTP/1.1"
+                                      "Host: localhost:8080"
+                                      "User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:24.0) Gecko/20140722 Firefox/24.0 Iceweasel/24.7.0"
+                                      "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
+                                      "Accept-Language: en-US,en;q=0.5"
+                                      "Accept-Encoding: gzip, deflate"
+                                      "Connection: keep-alive"))
+                     (p (open-input-string str)))
+                (time (do ((i 0 (add1 i)))
+                          ((= i  100000))
+                        (##sys#setslot p 10 0) ; rewind
+                        (read-request p))))))
+
+(begin (newline)
+       (print "---  Response parsing ---")
+       (begin (print "Parsing a minimal HTTP/1.0 response many times")
+              (let* ((str (mk-headers "HTTP/1.0 200 OK"
+                                      "Content-Length: 10"))
+                     (p (open-input-string str)))
+                (time (do ((i 0 (add1 i)))
+                          ((= i  100000))
+                        (##sys#setslot p 10 0) ; rewind
+                        (read-response p)))))
+
+       (begin (newline)
+              (print "Parsing a realistic HTTP/1.1 response many times")
+              (let* ((str (mk-headers
+                           "HTTP/1.1 404 Not Found"
+                           "Date: Tue, 19 Aug 2014 19:14:24 GMT"
+                           "Server: Apache"
+                           "Vary: Accept-Encoding"
+                           "Content-Encoding: gzip"
+                           "Content-Length: 176"
+                           "Keep-Alive: timeout=15, max=100"
+                           "Connection: Keep-Alive"
+                           "Content-Type: text/html; charset=iso-8859-1"))
+                     (p (open-input-string str)))
+                (time (do ((i 0 (add1 i)))
+                          ((= i  100000))
+                        (##sys#setslot p 10 0) ; rewind
+                        (read-response p))))))