diff --git a/collects/tests/web-server/stress/vshop/.gitignore b/collects/tests/web-server/stress/vs-hop/.gitignore similarity index 100% rename from collects/tests/web-server/stress/vshop/.gitignore rename to collects/tests/web-server/stress/vs-hop/.gitignore diff --git a/collects/tests/web-server/stress/vshop/Makefile b/collects/tests/web-server/stress/vs-hop/Makefile similarity index 100% rename from collects/tests/web-server/stress/vshop/Makefile rename to collects/tests/web-server/stress/vs-hop/Makefile diff --git a/collects/tests/web-server/stress/vshop/dynamic.rkt b/collects/tests/web-server/stress/vs-hop/dynamic.rkt similarity index 100% rename from collects/tests/web-server/stress/vshop/dynamic.rkt rename to collects/tests/web-server/stress/vs-hop/dynamic.rkt diff --git a/collects/tests/web-server/stress/vshop/static.rkt b/collects/tests/web-server/stress/vs-hop/static.rkt similarity index 100% rename from collects/tests/web-server/stress/vshop/static.rkt rename to collects/tests/web-server/stress/vs-hop/static.rkt diff --git a/collects/tests/web-server/stress/vs-snap/FiringGeometry.png b/collects/tests/web-server/stress/vs-snap/FiringGeometry.png new file mode 100644 index 0000000000..f0c189a4fc Binary files /dev/null and b/collects/tests/web-server/stress/vs-snap/FiringGeometry.png differ diff --git a/collects/tests/web-server/stress/vs-snap/Makefile b/collects/tests/web-server/stress/vs-snap/Makefile new file mode 100644 index 0000000000..4f96c28416 --- /dev/null +++ b/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 diff --git a/collects/tests/web-server/stress/vs-snap/dynamic.rkt b/collects/tests/web-server/stress/vs-snap/dynamic.rkt new file mode 100644 index 0000000000..8d9d3f8a5f --- /dev/null +++ b/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) diff --git a/collects/tests/web-server/stress/vs-snap/static.rkt b/collects/tests/web-server/stress/vs-snap/static.rkt new file mode 100644 index 0000000000..d8ddbe5350 --- /dev/null +++ b/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) \ No newline at end of file