summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/t/40virtual-host.t
diff options
context:
space:
mode:
Diffstat (limited to 'debian/vendor-h2o/t/40virtual-host.t')
-rw-r--r--debian/vendor-h2o/t/40virtual-host.t83
1 files changed, 0 insertions, 83 deletions
diff --git a/debian/vendor-h2o/t/40virtual-host.t b/debian/vendor-h2o/t/40virtual-host.t
deleted file mode 100644
index aef1b65..0000000
--- a/debian/vendor-h2o/t/40virtual-host.t
+++ /dev/null
@@ -1,83 +0,0 @@
-use strict;
-use warnings;
-use Digest::MD5 qw(md5_hex);
-use Net::EmptyPort qw(check_port);
-use File::Temp qw(tempfile);
-use Test::More;
-use t::Util;
-
-plan skip_all => 'curl not found'
- unless prog_exists('curl');
-
-subtest "basic" => sub {
- # create config
- my ($global_port, $alternate_port) = empty_ports(2);
- my ($conffh, $conffn) = tempfile(UNLINK => 1);
- print $conffh <<"EOT";
-listen:
- host: 127.0.0.1
- port: $global_port
-hosts:
- "default:$global_port":
- paths:
- /:
- file.dir: examples/doc_root
- "alternate:$global_port":
- listen:
- host: 127.0.0.1
- port: $alternate_port
- paths:
- /:
- file.dir: examples/doc_root.alternate
-EOT
-
- # start server
- my ($guard, $pid) = spawn_server(
- argv => [ bindir() . "/h2o", "-c", $conffn ],
- is_ready => sub {
- check_port($global_port) && check_port($alternate_port);
- },
- );
-
- my $resp = `curl --silent --resolve default:$global_port:127.0.0.1 http://default:$global_port/`;
- is md5_hex($resp), md5_file("examples/doc_root/index.html"), "'host: default' against default port";
-
- $resp = `curl --silent --resolve alternate:$global_port:127.0.0.1 http://alternate:$global_port/`;
- is md5_hex($resp), md5_file("examples/doc_root.alternate/index.txt"), "'host: alternate' against default port";
-
- $resp = `curl --silent --resolve default:$alternate_port:127.0.0.1 http://default:$alternate_port/`;
- is md5_hex($resp), md5_file("examples/doc_root.alternate/index.txt"), "'host: default' against alternate port";
-
- $resp = `curl --silent --resolve alternate:$alternate_port:127.0.0.1 http://alternate:$alternate_port/`;
- is md5_hex($resp), md5_file("examples/doc_root.alternate/index.txt"), "'host: alternate' against alternate port";
-};
-
-subtest "wildcard" => sub {
- my $server = spawn_h2o(sub {
- my ($port, $tls_port) = @_;
- return << "EOT";
-hosts:
- default:
- paths:
- /:
- file.dir: examples/doc_root
- "*.example.com:$port":
- paths:
- /:
- file.dir: examples/doc_root.alternate
-EOT
- });
-
- my $fetch = sub {
- my $host = shift;
- my $resp = `curl --silent --resolve $host:$server->{port}:127.0.0.1 http://$host:$server->{port}/`;
- md5_hex($resp);
- };
-
- is $fetch->("www.example.com"), md5_file("examples/doc_root.alternate/index.txt"), "www.example.com";
- is $fetch->("xxx.example.com"), md5_file("examples/doc_root.alternate/index.txt"), "xxx.example.com";
- is $fetch->("example.com"), md5_file("examples/doc_root/index.html"), "example.com";
- is $fetch->("example.org"), md5_file("examples/doc_root/index.html"), "example.org";
-};
-
-done_testing();