MINOR: reg-tests: add http-reuse test

Add a serie of 4 tests for the various http-reuse modes : never, safe,
aggressive and always.

diff --git a/reg-tests/connection/http_reuse_aggressive.vtc b/reg-tests/connection/http_reuse_aggressive.vtc
new file mode 100644 (file)
index 0000000..71f4cee
--- /dev/null
+++ b/reg-tests/connection/http_reuse_aggressive.vtc
@@ -0,0 +1,45 @@
+varnishtest "Test the http-reuse aggressive mode"
+
+#REQUIRE_VERSION=2.2
+
+feature ignore_unknown_macro
+
+haproxy h1 -conf {
+       defaults
+               mode http
+
+       listen sender
+               bind "fd@${feS}"
+               http-reuse aggressive
+               server srv ${h1_feR_addr}:${h1_feR_port}
+
+       listen receiver
+               bind "fd@${feR}"
+               http-request return status 200
+               http-after-response set-header http_first_request %[http_first_req]
+} -start
+
+# bootstrap
+client c1 -connect ${h1_feS_sock} {
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "1"
+} -run
+
+# first request should not be reused as no safe connection for the moment
+client c2 -connect ${h1_feS_sock} {
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "1"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+} -run
+
+# first request must be reused with the safe connection
+client c3 -connect ${h1_feS_sock} {
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+} -run

diff --git a/reg-tests/connection/http_reuse_always.vtc b/reg-tests/connection/http_reuse_always.vtc
new file mode 100644 (file)
index 0000000..136fe4e
--- /dev/null
+++ b/reg-tests/connection/http_reuse_always.vtc
@@ -0,0 +1,43 @@
+varnishtest "Test the http-reuse always mode"
+
+#REQUIRE_VERSION=2.2
+
+feature ignore_unknown_macro
+
+haproxy h1 -conf {
+       defaults
+               mode http
+
+       listen sender
+               bind "fd@${feS}"
+               http-reuse always
+               server srv ${h1_feR_addr}:${h1_feR_port}
+
+       listen receiver
+               bind "fd@${feR}"
+               http-request return status 200
+               http-after-response set-header http_first_request %[http_first_req]
+} -start
+
+# bootstrap
+client c1 -connect ${h1_feS_sock} {
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "1"
+} -run
+
+client c2 -connect ${h1_feS_sock} {
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+} -run
+
+client c3 -connect ${h1_feS_sock} {
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+} -run

diff --git a/reg-tests/connection/http_reuse_never.vtc b/reg-tests/connection/http_reuse_never.vtc
new file mode 100644 (file)
index 0000000..fc74631
--- /dev/null
+++ b/reg-tests/connection/http_reuse_never.vtc
@@ -0,0 +1,79 @@
+varnishtest "Test the http-reuse never mode"
+
+#REQUIRE_VERSION=2.2
+
+feature ignore_unknown_macro
+
+haproxy h1 -conf {
+       defaults
+               mode http
+
+       # limit idle pool to one connection
+       # this is to mirror http-reuse safe test, but in this case to ensure that
+       # connection are never reused as expected
+       listen sender
+               bind "fd@${feS}"
+               http-reuse never
+               http-request set-header client-id %[req.hdr(client-id)] if { req.hdr(client-id) -m found }
+               server srv ${h1_feR_addr}:${h1_feR_port} pool-max-conn 1
+
+       listen receiver
+               bind "fd@${feR}"
+               http-request set-var(sess.client_id) req.hdr(client-id)
+               http-request return status 200
+               http-after-response set-header http_first_request %[http_first_req]
+               http-after-response set-header client-id %[var(sess.client_id)]
+} -start
+
+client c1 -connect ${h1_feS_sock} {
+       txreq \
+         -hdr "client-id: c1"
+       rxresp
+       expect resp.http.http_first_request == "1"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c1"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c1"
+} -run
+
+client c2 -connect ${h1_feS_sock} {
+       txreq \
+         -hdr "client-id: c2"
+       rxresp
+       expect resp.http.http_first_request == "1"
+       expect resp.http.client-id == "c2"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c2"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c2"
+} -run
+
+client c3 -connect ${h1_feS_sock} {
+       txreq \
+         -hdr "client-id: c3"
+       rxresp
+       expect resp.http.http_first_request == "1"
+       expect resp.http.client-id == "c3"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c3"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c3"
+} -run

diff --git a/reg-tests/connection/http_reuse_safe.vtc b/reg-tests/connection/http_reuse_safe.vtc
new file mode 100644 (file)
index 0000000..fa00dd4
--- /dev/null
+++ b/reg-tests/connection/http_reuse_safe.vtc
@@ -0,0 +1,78 @@
+varnishtest "Test the http-reuse safe mode"
+
+#REQUIRE_VERSION=2.2
+
+feature ignore_unknown_macro
+
+haproxy h1 -conf {
+       defaults
+               mode http
+
+       # limit idle pool to one connection
+       # this forces connection reuse for the transaction after the first one
+       listen sender
+               bind "fd@${feS}"
+               http-reuse safe
+               http-request set-header client-id %[req.hdr(client-id)] if { req.hdr(client-id) -m found }
+               server srv ${h1_feR_addr}:${h1_feR_port} pool-max-conn 1
+
+       listen receiver
+               bind "fd@${feR}"
+               http-request set-var(sess.client_id) req.hdr(client-id)
+               http-request return status 200
+               http-after-response set-header http_first_request %[http_first_req]
+               http-after-response set-header client-id %[var(sess.client_id)]
+} -start
+
+client c1 -connect ${h1_feS_sock} {
+       txreq \
+         -hdr "client-id: c1"
+       rxresp
+       expect resp.http.http_first_request == "1"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c1"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c1"
+} -run
+
+client c2 -connect ${h1_feS_sock} {
+       txreq \
+         -hdr "client-id: c2"
+       rxresp
+       expect resp.http.http_first_request == "1"
+       expect resp.http.client-id == "c2"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c1"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c1"
+} -run
+
+client c3 -connect ${h1_feS_sock} {
+       txreq \
+         -hdr "client-id: c3"
+       rxresp
+       expect resp.http.http_first_request == "1"
+       expect resp.http.client-id == "c3"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c1"
+
+       txreq
+       rxresp
+       expect resp.http.http_first_request == "0"
+       expect resp.http.client-id == "c1"
+} -run