From 1221c736f9a90756d47ea6d28320b6b83602dd2a Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Tue, 7 May 2024 04:04:07 +0200 Subject: Adding debian version 2.4.38-3+deb10u8. Signed-off-by: Daniel Baumann --- debian/perl-framework/t/apache/getfile.t | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 debian/perl-framework/t/apache/getfile.t (limited to 'debian/perl-framework/t/apache/getfile.t') diff --git a/debian/perl-framework/t/apache/getfile.t b/debian/perl-framework/t/apache/getfile.t new file mode 100644 index 0000000..3df2faf --- /dev/null +++ b/debian/perl-framework/t/apache/getfile.t @@ -0,0 +1,24 @@ +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest (); +use Apache::TestCommon (); + +Apache::TestCommon::run_files_test(\&verify); + +sub verify { + my($ua, $url, $file) = @_; + + my $flen = -s $file; + my $received = 0; + + $ua->do_request(GET => $url, + sub { + my($chunk, $res) = @_; + $received += length $chunk; + }); + + ok t_cmp($received, $flen, "download of $url"); +} -- cgit v1.2.3