From f490f30ed8239ca5f5dba9e39a9f46cb32538c99 Mon Sep 17 00:00:00 2001
From: Willy Tarreau <w@1wt.eu>
Date: Fri, 23 Nov 2018 08:36:06 +0100
Subject: [PATCH] REGTEST: add a test for connections to a "dispatch" address

The test includes both TCP and HTTP modes.
---
 reg-tests/connection/h00001.vtc | 42 +++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 reg-tests/connection/h00001.vtc

diff --git a/reg-tests/connection/h00001.vtc b/reg-tests/connection/h00001.vtc
new file mode 100644
index 0000000000..fccd6ec4b9
--- /dev/null
+++ b/reg-tests/connection/h00001.vtc
@@ -0,0 +1,42 @@
+varnishtest "Validate proper operation of the 'dispatch' mode"
+feature ignore_unknown_macro
+
+server s1 {
+    rxreq
+    txresp
+} -start
+
+server s2 {
+    rxreq
+    txresp
+} -start
+
+haproxy h1 -conf {
+defaults
+    log global
+    timeout connect 1s
+    timeout client 1s
+    timeout server 1s
+
+listen fe_tcp
+    bind "fd@${fe_tcp}"
+    mode tcp
+    dispatch ${s1_addr}:${s1_port}
+
+listen fe_http
+    bind "fd@${fe_http}"
+    mode http
+    dispatch ${s2_addr}:${s2_port}
+} -start
+
+client c1 -connect ${h1_fe_tcp_sock} {
+    txreq -url "/"
+    rxresp
+    expect resp.status == 200
+} -run
+
+client c2 -connect ${h1_fe_http_sock} {
+    txreq -url "/"
+    rxresp
+    expect resp.status == 200
+} -run