fix relay "append header" action, add regression test for append

ok reyk

1 files changed, 40 insertions, 0 deletions

diff --git a/regress/usr.sbin/relayd/args-http-append-header.pl b/regress/usr.sbin/relayd/args-http-append-header.pl
new file mode 100644
index 00000000000..f7344458ec6
--- /dev/null
+++ b/regress/usr.sbin/relayd/args-http-append-header.pl
@@ -0,0 +1,40 @@
+# test appending headers, both directions
+
+use strict;
+use warnings;
+
+my %header_client = (
+	"X-Header-Client" => "ABC",
+);
+my %header_server = (
+	"X-Header-Server" => "XYZ",
+);
+our %args = (
+    client => {
+	func => \&http_client,
+	header => \%header_client,
+	loggrep => {
+	    "X-Header-Server: XYZ" => 1,
+	    "X-Header-Server: xyz" => 1,
+	},
+    },
+    relayd => {
+	protocol => [ "http",
+	    'match request header append "X-Header-Client" value "abc"',
+	    'match response header append "X-Header-Server" value "xyz"',
+	    'match request header log "X-Header*"',
+	    'match response header log "X-Header*"',
+	],
+	loggrep => { qr/ (?:done|last write \(done\)), \[X-Header-Client: ABC\]\ \[X-Header-Server: XYZ\]/ => 1 },
+    },
+    server => {
+	func => \&http_server,
+	header => \%header_server,
+	loggrep => {
+	    "X-Header-Client: ABC" => 1,
+	    "X-Header-Client: abc" => 1,
+	},
+    },
+);
+
+1;