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/modules/speling.t | 64 +++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 debian/perl-framework/t/modules/speling.t

(limited to 'debian/perl-framework/t/modules/speling.t')

diff --git a/debian/perl-framework/t/modules/speling.t b/debian/perl-framework/t/modules/speling.t
new file mode 100644
index 0000000..85af159
--- /dev/null
+++ b/debian/perl-framework/t/modules/speling.t
@@ -0,0 +1,64 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestRequest;
+use Apache::TestUtil;
+
+my @testcasespaths = (
+    ['/modules/speling/nocase/'], 
+    ['/modules/speling/caseonly/'], 
+);
+
+my @testcases = (
+    ## File        Test        CheckCaseOnly Off   On
+    ['good.html',  "normal",                 200, 200], 
+    ['god.html',   "omission",               301, 404],
+    ['goood.html', "insertion",              301, 404],
+    ['godo.html',  "transposition",          301, 404],
+    ['go_d.html',  "wrong character",        301, 404],
+
+    ['good.wrong_ext', "wrong extension",    300, 300],
+    ['GOOD.wrong_ext', "NC wrong extension", 300, 300],
+
+    ['Bad.html',  "wrong filename",          404, 404],
+    ['dogo.html', "double transposition",    404, 404],
+    ['XooX.html', "double wrong character",  404, 404],
+
+    ['several0.html', "multiple choice",     300, 404],
+);
+
+# macOS HFS is case-insensitive but case-preserving so the below tests
+# would cause misleading failures
+if ($^O ne "darwin") {
+    push (@testcases, ['GOOD.html',  "case",                   301, 301]);
+}
+
+plan tests => scalar @testcasespaths * scalar @testcases * 2, need 'mod_speling';
+
+my $r;
+my $code = 2;
+
+# Disable redirect
+local $Apache::TestRequest::RedirectOK = 0;
+
+foreach my $p (@testcasespaths) {
+    foreach my $t (@testcases) {
+        ## 
+        #local $Apache::TestRequest::RedirectOK = 0;
+        $r = GET($p->[0] . $t->[0]);
+
+        # Checking for return code
+        ok t_cmp($r->code, $t->[$code], "Checking " . $t->[1] . ". Expecting: ". $t->[$code]);
+        
+        # Checking that the expected filename is in the answer
+        if ($t->[$code] != 200 && $t->[$code] != 404) {
+            ok t_cmp($r->content, qr/good\.html|several1\.html/, "Redirect ok");
+        }
+        else {
+            skip "Skipping. No redirect with status " . $t->[$code];
+        }
+    }
+    
+    $code = $code+1;
+}
-- 
cgit v1.2.3