diff options
Diffstat (limited to 'debian/vendor-h2o/t/40server-push-multiple.t')
-rw-r--r-- | debian/vendor-h2o/t/40server-push-multiple.t | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/debian/vendor-h2o/t/40server-push-multiple.t b/debian/vendor-h2o/t/40server-push-multiple.t deleted file mode 100644 index b43c967..0000000 --- a/debian/vendor-h2o/t/40server-push-multiple.t +++ /dev/null @@ -1,66 +0,0 @@ -use strict; -use warnings; -use Net::EmptyPort qw(check_port empty_port); -use Test::More; -use t::Util; - -plan skip_all => 'plackup not found' - unless prog_exists('plackup'); -plan skip_all => 'Starlet not found' - unless system('perl -MStarlet /dev/null > /dev/null 2>&1') == 0; -plan skip_all => 'nghttp not found' - unless prog_exists('nghttp'); -plan skip_all => 'mruby support is off' - unless server_features()->{mruby}; - -subtest "basic" => sub { - # spawn upstream - my $upstream_port = empty_port(); - my $upstream = spawn_server( - argv => [ - qw(plackup -s Starlet --access-log /dev/null -p), $upstream_port, ASSETS_DIR . "/upstream.psgi", - ], - is_ready => sub { - check_port($upstream_port); - }, - ); - # spawn server - my $server = spawn_h2o(<< "EOT"); -hosts: - default: - paths: - /: - proxy.reverse.url: http://127.0.0.1:$upstream_port - /mruby: - mruby.handler: | - Proc.new do |env| - [399, { "link" => "</index.txt.gz>; rel=preload, </index.txt.gz?1>; rel=preload, </index.txt.gz?nopush>; rel=preload; nopush" }, [] ] - end - proxy.reverse.url: http://127.0.0.1:$upstream_port - /assets: - file.dir: @{[DOC_ROOT]} -EOT - - my $doit = sub { - my ($proto, $opts, $port) = @_; - subtest 'push-prioritized' => sub { - my $resp = `nghttp $opts -n --stat '$proto://127.0.0.1:$port/mruby'`; - like $resp, qr{\nid\s*responseEnd\s.*\s/index\.txt\.gz}is, "index.txt.gz is pushed"; - like $resp, qr{\nid\s*responseEnd\s.*\s/index\.txt\.gz\?1}is, "index.txt.gz?1 is pushed"; - unlike $resp, qr{\nid\s*responseEnd\s.*\s/index\.txt\.gz\?nopush}is, "index.txt.gz?nopush isn't pushed"; - }; - }; - - subtest 'h2 direct' => sub { - $doit->('http', '', $server->{port}); - }; - subtest 'h2 upgrade' => sub { - $doit->('http', '-u', $server->{port}); - }; - subtest 'h2c' => sub { - $doit->('https', '', $server->{tls_port}); - }; -}; - - -done_testing; |