summaryrefslogtreecommitdiffstats
path: root/web/server/h2o/libh2o/t/50headers.t
diff options
context:
space:
mode:
Diffstat (limited to 'web/server/h2o/libh2o/t/50headers.t')
-rw-r--r--web/server/h2o/libh2o/t/50headers.t25
1 files changed, 25 insertions, 0 deletions
diff --git a/web/server/h2o/libh2o/t/50headers.t b/web/server/h2o/libh2o/t/50headers.t
new file mode 100644
index 000000000..b930a07c3
--- /dev/null
+++ b/web/server/h2o/libh2o/t/50headers.t
@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+use Test::More;
+use t::Util;
+
+plan skip_all => 'curl not found'
+ unless prog_exists('curl');
+
+my $server = spawn_h2o(<< "EOT");
+hosts:
+ default:
+ paths:
+ /:
+ file.dir: @{[ DOC_ROOT ]}
+header.add: "strict-transport-security: max-age=31536000; includeSubDomains; preload "
+header.unset: last-modified
+EOT
+
+my $resp = `curl --silent --dump-header /dev/stderr http://127.0.0.1:$server->{port}/index.txt 2>&1 > /dev/null`;
+like $resp, qr{^HTTP/1\.1 200 }s, "200 response";
+like $resp, qr{^strict-transport-security: max-age=31536000; includeSubDomains; preload\r$}im, "hsts added";
+is +(() = $resp =~ m{^strict-transport-security:}img), 1, "header added only once";
+unlike $resp, qr{^last-modified: }, "last-modified unset";
+
+done_testing();