summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/modules/ratelimit.t
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--debian/perl-framework/t/modules/ratelimit.t43
1 files changed, 43 insertions, 0 deletions
diff --git a/debian/perl-framework/t/modules/ratelimit.t b/debian/perl-framework/t/modules/ratelimit.t
new file mode 100644
index 0000000..27ce3a8
--- /dev/null
+++ b/debian/perl-framework/t/modules/ratelimit.t
@@ -0,0 +1,43 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestRequest;
+use Apache::TestUtil;
+use MIME::Base64;
+use Data::Dumper;
+use HTTP::Response;
+use Socket;
+
+use LWP::UserAgent ();
+
+
+my @testcases = (
+ ['/apache/ratelimit/' => '200', "ratelimited small file"],
+ ['/apache/ratelimit/autoindex/' => '200', "ratelimited small autoindex output"],
+ ['/apache/ratelimit/chunk?0,8192' => '200', "ratelimited chunked response"],
+);
+
+plan tests => scalar @testcases, need need_lwp,
+ need_module('mod_ratelimit'),
+ need_module('mod_autoindex'),
+ need_min_apache_version('2.4.35');
+
+my $ua = LWP::UserAgent->new;
+$ua->timeout(4);
+
+foreach my $t (@testcases) {
+ my $r;
+
+ # trap a die() in WLP when the the status line is invalid to avoid
+ # 'dubious test...' instead of just a failure.
+ eval { $r = GET($t->[0]) ;
+ chomp $r;
+ t_debug "Status Line: '" . $r->status_line . "'";
+ ok t_cmp($r->code, $t->[1], $t->[2]);
+ };
+ # Check if the eval() die'ed
+ ok t_cmp($@, undef, $t->[2]) if $@
+
+}
+