From c9cf025fadfe043f0f2f679e10d1207d8a158bb6 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 7 Apr 2024 17:01:31 +0200
Subject: Adding debian version 2.4.57-2.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 debian/perl-framework/t/filter/case.t | 42 +++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 debian/perl-framework/t/filter/case.t

(limited to 'debian/perl-framework/t/filter/case.t')

diff --git a/debian/perl-framework/t/filter/case.t b/debian/perl-framework/t/filter/case.t
new file mode 100644
index 0000000..94bbb08
--- /dev/null
+++ b/debian/perl-framework/t/filter/case.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/hello.php',
+    mod_cgi         => '/modules/cgi/perl.pl',
+    mod_test_rwrite => '/test_rwrite',
+    mod_alias       => '/getfiles-perl-pod/perlsub.pod',
+);
+
+my @filter = ('X-AddOutputFilter' => 'CaseFilter'); #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';
+
+verify(GET '/', @filter);
+
+for my $module (sort keys %urls) {
+    my $r = GET $urls{$module}, @filter;
+    print "# testing $module with $urls{$module}\n";
+    print "# expected 200\n";
+    print "# received ".$r->code."\n";
+    print "# body: ".$r->content."\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