From 58daab21cd043e1dc37024a7f99b396788372918 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 9 Mar 2024 14:19:48 +0100 Subject: Merging upstream version 1.44.3. Signed-off-by: Daniel Baumann --- web/server/h2o/libh2o/t/50throttle-response.t | 42 +++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create 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 new file mode 100644 index 000000000..4fba4d238 --- /dev/null +++ b/web/server/h2o/libh2o/t/50throttle-response.t @@ -0,0 +1,42 @@ +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