summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/modules/headers.t
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-17 13:43:00 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-17 13:43:00 +0000
commit722b7f5a6834f2ca6c8ea03aa3a7c96a7a84873c (patch)
tree7ea234da7d12316415070d51fc318ad2a2f02e3a /debian/perl-framework/t/modules/headers.t
parentMerging upstream version 2.4.59. (diff)
downloadapache2-722b7f5a6834f2ca6c8ea03aa3a7c96a7a84873c.tar.xz
apache2-722b7f5a6834f2ca6c8ea03aa3a7c96a7a84873c.zip
Adding debian version 2.4.59-1~deb12u1.debian/2.4.59-1_deb12u1debian
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'debian/perl-framework/t/modules/headers.t')
-rw-r--r--debian/perl-framework/t/modules/headers.t24
1 files changed, 23 insertions, 1 deletions
diff --git a/debian/perl-framework/t/modules/headers.t b/debian/perl-framework/t/modules/headers.t
index c72c690..4892b95 100644
--- a/debian/perl-framework/t/modules/headers.t
+++ b/debian/perl-framework/t/modules/headers.t
@@ -116,7 +116,29 @@ my @testcases = (
[ 'Test-Header' => 'foo' ],
],
);
-
+if (have_min_apache_version('2.5.1')) {
+ push(@testcases,
+ (
+ # edit*
+ [
+ "Header echo Test-Header\nHeader edit* Test-Header (?<=a)(ba) cd", # lookbehind
+ [ 'Test-Header' => 'ababa' ],
+ [ 'Test-Header' => 'acdcd' ],
+ ],
+ [
+ "Header echo Test-Header\nHeader edit* Test-Header ^ foo", # empty match (no infinite loop!)
+ [ 'Test-Header' => 'bar' ],
+ [ 'Test-Header' => 'foobar' ],
+ ],
+ [
+ "Header echo Test-Header\nHeader edit* Test-Header ^(.*)\$ \$1;httpOnly;secure", # empty header/match (no infinite loop!)
+ [ 'Test-Header' => '' ],
+ [ 'Test-Header' => ';httpOnly;secure' ],
+ ],
+ )
+ );
+}
+
plan tests =>
@header_types**4 + @header_types**3 + @header_types**2 + @header_types**1 + scalar @testcases * 2,
have_module 'headers';