From 1221c736f9a90756d47ea6d28320b6b83602dd2a Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Tue, 7 May 2024 04:04:07 +0200
Subject: Adding debian version 2.4.38-3+deb10u8.

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

(limited to 'debian/perl-framework/t/apache/errordoc.t')

diff --git a/debian/perl-framework/t/apache/errordoc.t b/debian/perl-framework/t/apache/errordoc.t
new file mode 100644
index 0000000..405924b
--- /dev/null
+++ b/debian/perl-framework/t/apache/errordoc.t
@@ -0,0 +1,108 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestRequest;
+use Apache::TestUtil;
+
+Apache::TestRequest::module('error_document');
+
+plan tests => 14, need_lwp;
+
+# basic ErrorDocument tests
+
+{
+    my $response = GET '/notfound.html';
+    chomp(my $content = $response->content);
+
+    ok t_cmp($response->code,
+             404,
+             'notfound.html code');
+
+    ok t_cmp($content,
+             qr'per-server 404',
+             'notfound.html content');
+}
+
+{
+    my $response = GET '/inherit/notfound.html';
+    chomp(my $content = $response->content);
+
+    ok t_cmp($response->code,
+             404,
+             '/inherit/notfound.html code');
+
+    ok t_cmp($content,
+             qr'per-server 404',
+             '/inherit/notfound.html content');
+}
+
+{
+    my $response = GET '/redefine/notfound.html';
+    chomp(my $content = $response->content);
+
+    ok t_cmp($response->code,
+             404,
+             '/redefine/notfound.html code');
+
+    ok t_cmp($content,
+             'per-dir 404',
+             '/redefine/notfound.html content');
+}
+
+{
+    my $response = GET '/restore/notfound.html';
+    chomp(my $content = $response->content);
+
+    ok t_cmp($response->code,
+             404,
+             '/redefine/notfound.html code');
+
+    # 1.3 requires quotes for hard-coded messages
+    my $expected = have_min_apache_version('2.0.51') ? qr/Not Found/ :
+                   have_apache(2)                    ? 'default'     : 
+                   qr/Additionally, a 500/;
+
+    ok t_cmp($content,
+             $expected,
+             '/redefine/notfound.html content');
+}
+
+{
+    my $response = GET '/apache/notfound.html';
+    chomp(my $content = $response->content);
+
+    ok t_cmp($response->code,
+             404,
+             '/merge/notfound.html code');
+
+    ok t_cmp($content,
+             'testing merge',
+             '/merge/notfound.html content');
+}
+
+{
+    my $response = GET '/apache/etag/notfound.html';
+    chomp(my $content = $response->content);
+
+    ok t_cmp($response->code,
+             404,
+             '/merge/merge2/notfound.html code');
+
+    ok t_cmp($content,
+             'testing merge',
+             '/merge/merge2/notfound.html content');
+}
+
+{
+    my $response = GET '/bounce/notfound.html';
+    chomp(my $content = $response->content);
+
+    ok t_cmp($response->code,
+             404,
+             '/bounce/notfound.html code');
+
+    ok t_cmp($content,
+             qr!expire test!,
+             '/bounce/notfound.html content');
+}
-- 
cgit v1.2.3