From b485aab7e71c1625cfc27e0f92c9509f42378458 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 5 May 2024 13:19:16 +0200 Subject: Adding upstream version 1.45.3+dfsg. Signed-off-by: Daniel Baumann --- web/server/h2o/libh2o/t/50throttle-response.t | 42 --------------------------- 1 file changed, 42 deletions(-) delete mode 100644 web/server/h2o/libh2o/t/50throttle-response.t (limited to 'web/server/h2o/libh2o/t/50throttle-response.t') diff --git a/web/server/h2o/libh2o/t/50throttle-response.t b/web/server/h2o/libh2o/t/50throttle-response.t deleted file mode 100644 index 4fba4d238..000000000 --- a/web/server/h2o/libh2o/t/50throttle-response.t +++ /dev/null @@ -1,42 +0,0 @@ -use strict; -use warnings; -use Test::More; -use t::Util; -use Time::HiRes qw(time); - -plan skip_all => 'curl not found' - unless prog_exists('curl'); - -my $all_data = do { - open my $fh, "<", "@{[DOC_ROOT]}/halfdome.jpg" - or die "failed to open file:@{[DOC_ROOT]}/halfdome.jpg:$!"; - undef $/; - <$fh>; -}; - -my $server = spawn_h2o(<< "EOT"); -throttle-response: ON -hosts: - default: - paths: - /: - file.dir: @{[ DOC_ROOT ]} - header.add: "X-Traffic: 100000" -EOT - -run_with_curl($server, sub { - my ($proto, $port, $curl_cmd) = @_; - $curl_cmd .= " --silent --show-error"; - my $url = "$proto://127.0.0.1:$port/halfdome.jpg"; - - subtest "throttle-to-low-speed" => sub { - my $start_time = time; - my $resp = `$curl_cmd $url`; - my $end_time = time; - is $resp, $all_data; - my $speed = length($resp) / ($end_time - $start_time); - cmp_ok($speed, '<=', 100000 * 1.1); # the implementation may cause response speed is a bit larger than the limitation, especially when file is not big enough. - }; -}); - -done_testing(); -- cgit v1.2.3