summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/t/50config-tag.t
diff options
context:
space:
mode:
Diffstat (limited to 'debian/vendor-h2o/t/50config-tag.t')
-rw-r--r--debian/vendor-h2o/t/50config-tag.t111
1 files changed, 0 insertions, 111 deletions
diff --git a/debian/vendor-h2o/t/50config-tag.t b/debian/vendor-h2o/t/50config-tag.t
deleted file mode 100644
index dd37f99..0000000
--- a/debian/vendor-h2o/t/50config-tag.t
+++ /dev/null
@@ -1,111 +0,0 @@
-use strict;
-use warnings;
-use File::Temp qw(tempfile);
-use Test::More;
-use t::Util;
-
-plan skip_all => 'curl not found'
- unless prog_exists('curl');
-
-my $curl = "curl --silent --show-error --dump-header /dev/stderr";
-
-subtest 'basic' => sub {
- my $included = temp_config_file(<< "EOT");
-header.add: &marked "foo: FOO"
-file.dir: @{[DOC_ROOT]}
-EOT
-
- my $server = spawn_h2o(<< "EOT");
-hosts:
- default:
- paths:
- /: !file $included
-EOT
-
- my ($stderr, $stdout) = run_prog("$curl http://127.0.0.1:@{[$server->{port}]}/");
- like $stderr, qr{^HTTP/[^ ]+ 200\s}s;
- like $stderr, qr{^foo: ?FOO\r$}im;
-};
-
-subtest 'multi-hop' => sub {
- my $included2 = temp_config_file(<< "EOT");
-header.add: &marked "foo: FOO"
-file.dir: @{[DOC_ROOT]}
-EOT
- my $included1 = temp_config_file(<< "EOT");
-!file $included2
-EOT
-
- my $server = spawn_h2o(<< "EOT");
-hosts:
- default:
- paths:
- /: !file $included1
-EOT
-
- my ($stderr, $stdout) = run_prog("$curl http://127.0.0.1:@{[$server->{port}]}/");
- like $stderr, qr{^HTTP/[^ ]+ 200\s}s;
- like $stderr, qr{^foo: ?FOO\r$}im;
-};
-
-subtest 'with-alias' => sub {
- my $included = temp_config_file(<< "EOT");
-header.add: &marked "foo: FOO"
-file.dir: @{[DOC_ROOT]}
-EOT
-
- my $server = spawn_h2o(<< "EOT");
-hosts:
- default:
- paths:
- /: !file $included
- /another:
- header.add: *marked
- file.dir: @{[DOC_ROOT]}
-EOT
-
- subtest 'with_merge' => sub {
- my ($stderr, $stdout) = run_prog("$curl http://127.0.0.1:@{[$server->{port}]}/");
- like $stderr, qr{^HTTP/[^ ]+ 200\s}s;
- like $stderr, qr{^foo: ?FOO\r$}im;
- };
-
- subtest 'with_alias' => sub {
- my ($stderr, $stdout) = run_prog("$curl http://127.0.0.1:@{[$server->{port}]}/another/");
- like $stderr, qr{^HTTP/[^ ]+ 200\s}s;
- like $stderr, qr{^foo: ?FOO\r$}im;
- };
-};
-
-subtest 'with-merge' => sub {
- my $included2 = temp_config_file(<< "EOT");
-header.add: "foo: FOO"
-EOT
- my $included1 = temp_config_file(<< "EOT");
-<<: !file $included2
-header.append: "bar: BAR"
-EOT
-
- my $server = spawn_h2o(<< "EOT");
-hosts:
- default:
- paths:
- /:
- <<: !file $included1
- file.dir: @{[ DOC_ROOT ]}
-EOT
-
- my ($stderr, $stdout) = run_prog("$curl http://127.0.0.1:@{[$server->{port}]}/");
- like $stderr, qr{^HTTP/[^ ]+ 200\s}s;
- like $stderr, qr{^foo: ?FOO\r$}im;
- like $stderr, qr{^bar: ?BAR\r$}im;
-};
-
-done_testing();
-
-sub temp_config_file {
- my ($content) = @_;
- my ($fh, $fn) = tempfile(UNLINK => 1);
- print $fh $content;
- return $fn;
-}