From c9cf025fadfe043f0f2f679e10d1207d8a158bb6 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 17:01:31 +0200 Subject: Adding debian version 2.4.57-2. Signed-off-by: Daniel Baumann --- debian/perl-framework/t/filter/case_in.t | 42 ++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 debian/perl-framework/t/filter/case_in.t (limited to 'debian/perl-framework/t/filter/case_in.t') diff --git a/debian/perl-framework/t/filter/case_in.t b/debian/perl-framework/t/filter/case_in.t new file mode 100644 index 0000000..400418a --- /dev/null +++ b/debian/perl-framework/t/filter/case_in.t @@ -0,0 +1,42 @@ +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; + +#test output of some other modules +my %urls = ( + mod_php4 => '/php/var3u.php', + mod_cgi => '/modules/cgi/perl_echo.pl', + mod_echo_post => '/echo_post', +); + +my @filter = ('X-AddInputFilter' => 'CaseFilterIn'); #mod_client_add_filter + +for my $module (keys %urls) { + delete $urls{$module} unless have_module($module); +} + +my $tests = 1 + scalar keys %urls; + +plan tests => $tests, need_module 'case_filter_in'; + +ok 1; + +my $data = "v1=one&v3=two&v2=three"; + +for my $module (sort keys %urls) { + my $r = POST $urls{$module}, @filter, content => $data; + print "# testing $module with $urls{$module}\n"; + print "# expected 200\n"; + print "# received ".$r->code."\n"; + verify($r); +} + +sub verify { + my $r = shift; + my $body = $r->content; + + ok $r->code == 200 and $body + and $body =~ /[A-Z]/ and $body !~ /[a-z]/; +} -- cgit v1.2.3