New benchmarks

collects/tests/web-server/stress/vs-snap/Makefile

@@ -0,0 +1,13 @@
+dyn-server: dynamic.rkt
+	ulimit -n 10000
+	racket -t dynamic.rkt
+
+stat-server: static.rkt
+	ulimit -n 10000
+	racket -t static.rkt
+
+dyn-httperf:
+	httperf --hog --num-conns 1000 --num-calls 1000 --burst-length 20 --port 8000 --rate 1000 --uri=/pong
+
+stat-httperf:
+	httperf --hog --num-conns 1000 --num-calls 1000 --burst-length 20 --port 8001 --rate 1000 --uri=/FiringGeometry.png

collects/tests/web-server/stress/vs-snap/dynamic.rkt

@@ -0,0 +1,19 @@
+#lang racket/base
+(require web-server/servlet-env
+         web-server/http
+         racket/list)
+
+(define resp
+  (make-response/full
+   200 #"Okay"
+   (current-seconds) TEXT/HTML-MIME-TYPE
+   empty
+   (list #"PONG")))
+
+(define (start req)
+  resp)
+
+(serve/servlet start
+               #:servlet-regexp #rx""
+               #:port 8000
+               #:command-line? #t)

collects/tests/web-server/stress/vs-snap/static.rkt

@@ -0,0 +1,13 @@
+#lang racket/base
+(require web-server/servlet-dispatch
+         racket/runtime-path
+         web-server/dispatchers/dispatch-files)
+
+(define-runtime-path static-path "FiringGeometry.png")
+
+(serve/launch/wait
+ (λ (sema)
+   (make #:url->path (λ (url) (values static-path null))))
+ #:launch-path #f
+ #:banner? #f
+ #:port 8001)