From 4f0770f3df78ecd5dcaefbd214f7a1415366bca6 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sat, 27 Apr 2024 08:33:51 +0200
Subject: Adding debian version 2.4.56-1~deb11u2.

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

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

diff --git a/debian/perl-framework/t/modules/brotli.t b/debian/perl-framework/t/modules/brotli.t
new file mode 100644
index 0000000..0f9dc13
--- /dev/null
+++ b/debian/perl-framework/t/modules/brotli.t
@@ -0,0 +1,115 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestUtil;
+use Apache::TestRequest;
+
+my @qvalue = (
+    [ ''          , 1],
+    [ ' '         , 1],
+    [ ';'         , 1],
+    [';q='        , 1],
+    [';q=0'       , 0],
+    [';q=0.'      , 0],
+    [';q=0.0'     , 0],
+    [';q=0.00'    , 0],
+    [';q=0.000'   , 0],
+    [';q=0.0000'  , 1],   # invalid qvalue format
+);
+
+plan tests => (6 * scalar @qvalue) + 4, need_module 'brotli', need_module 'alias';
+
+my $r;
+
+foreach my $q (@qvalue) {
+    # GET request against the location with Brotli.
+    print "qvalue: " . $q->[0] . "\n";
+    $r = GET("/only_brotli/index.html", "Accept-Encoding" => "br" . $q->[0]);
+    ok t_cmp($r->code, 200);
+    if ($q->[1] == 1) {
+        ok t_cmp($r->header("Content-Encoding"), "br", "response Content-Encoding is OK");
+    }
+    else {
+        ok t_cmp($r->header("Content-Encoding"), undef, "response without Content-Encoding is OK");
+    }
+    
+    if (!defined($r->header("Content-Length"))) {
+        t_debug "Content-Length was expected";
+        ok 0;
+    }
+    if (!defined($r->header("ETag"))) {
+        t_debug "ETag field was expected";
+        ok 0;
+    }
+
+    # GET request for a zero-length file.
+    print "qvalue: " . $q->[0] . "\n";
+    $r = GET("/only_brotli/zero.txt", "Accept-Encoding" => "br" . $q->[0]);
+    ok t_cmp($r->code, 200);
+    if ($q->[1] == 1) {
+        ok t_cmp($r->header("Content-Encoding"), "br", "response Content-Encoding is OK");
+    }
+    else {
+        ok t_cmp($r->header("Content-Encoding"), undef, "response without Content-Encoding is OK");
+    }
+
+    if (!defined($r->header("Content-Length"))) {
+        t_debug "Content-Length was expected";
+        ok 0;
+    }
+    if (!defined($r->header("ETag"))) {
+        t_debug "ETag field was expected";
+        ok 0;
+    }
+
+    # HEAD request against the location with Brotli.
+    print "qvalue: " . $q->[0] . "\n";
+    $r = HEAD("/only_brotli/index.html", "Accept-Encoding" => "br" . $q->[0]);
+    ok t_cmp($r->code, 200);
+    if ($q->[1] == 1) {
+        ok t_cmp($r->header("Content-Encoding"), "br", "response Content-Encoding is OK");
+    }
+    else {
+        ok t_cmp($r->header("Content-Encoding"), undef, "response without Content-Encoding is OK");
+    }
+
+    if (!defined($r->header("Content-Length"))) {
+        t_debug "Content-Length was expected";
+        ok 0;
+    }
+    if (!defined($r->header("ETag"))) {
+        t_debug "ETag field was expected";
+        ok 0;
+    }
+}
+
+
+if (have_module('deflate')) {
+    # GET request against the location with fallback to deflate (test that
+    # Brotli is chosen due to the order in SetOutputFilter).
+    $r = GET("/brotli_and_deflate/apache_pb.gif", "Accept-Encoding" => "gzip,br");
+    ok t_cmp($r->code, 200);
+    ok t_cmp($r->header("Content-Encoding"), "br", "response Content-Encoding is OK");
+    if (!defined($r->header("Content-Length"))) {
+        t_debug "Content-Length was expected";
+        ok 0;
+    }
+    if (!defined($r->header("ETag"))) {
+        t_debug "ETag field was expected";
+        ok 0;
+    }
+    $r = GET("/brotli_and_deflate/apache_pb.gif", "Accept-Encoding" => "gzip");
+    ok t_cmp($r->code, 200);
+    ok t_cmp($r->header("Content-Encoding"), "gzip", "response Content-Encoding is OK");
+    if (!defined($r->header("Content-Length"))) {
+        t_debug "Content-Length was expected";
+        ok 0;
+    }
+    if (!defined($r->header("ETag"))) {
+        t_debug "ETag field was expected";
+        ok 0;
+    }
+} else {
+    skip "skipping tests without mod_deflate" foreach (1..4);
+}
-- 
cgit v1.2.3