From 6a6bdf51d050bd64e21dc788bf739acda349e1be Mon Sep 17 00:00:00 2001
From: Sebastian Benoit <benno@cvs.openbsd.org>
Date: Sat, 12 Jul 2014 15:47:19 +0000
Subject: fix relay "append header" action, add regression test for append ok
 reyk

---
 regress/usr.sbin/relayd/args-http-append-header.pl | 40 ++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 regress/usr.sbin/relayd/args-http-append-header.pl

(limited to 'regress')

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;
-- 
cgit v1.2.3