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

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

diff --git a/debian/perl-framework/t/apache/leaks.t b/debian/perl-framework/t/apache/leaks.t
new file mode 100644
index 0000000..99ce600
--- /dev/null
+++ b/debian/perl-framework/t/apache/leaks.t
@@ -0,0 +1,69 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestRequest;
+use Apache::TestUtil;
+
+my $url = "/memory_track";
+my $init_iters = 2000;
+my $iters = 500;
+
+my $num_tests = $init_iters + $iters * 2;
+plan tests => $num_tests;
+
+### this doesn't seem sufficient to force all requests over a single
+### persistent connection any more, is there a better trick?
+Apache::TestRequest::user_agent(keep_alive => 1);
+Apache::TestRequest::scheme('http');
+
+my $r = GET $url;
+
+if ($r->code != 200) {
+    # these tests will be skipped for async MPMs or with an APR not
+    # built with --enable-pool-debug.
+    skip "mod_memory_track not activated" foreach (1..$num_tests);
+}
+else {
+    my $cid = -1;
+    my $mem;
+
+    # initial iterations should get workers to steady-state memory use.
+    foreach (1..$init_iters) {
+        ok t_cmp(GET_RC($url), 200, "200 response");
+    }
+
+    # now test whether c->pool memory is increasing for further
+    # requests on a given conn_rec (matched by id)... could track them
+    # all with a bit more effort.
+    foreach (1..$iters) {
+        $r = GET $url;
+
+        print "# iter $_\n";
+        
+        ok t_cmp($r->code, 200, "got response");
+
+        my $content = $r->content;
+        chomp $content;
+        my ($key, $id, $bytes) = split ',', $content;
+
+        print "# $key, $id, $bytes\n";
+
+        if ($cid == -1) {
+            $cid = $id;
+            $mem = $bytes;
+            ok 1;
+        }
+        elsif ($cid != $id) {
+            skip "using wrong connection";
+        }
+        elsif ($bytes > $mem) {
+            print "# error: pool memory increased from $mem to $bytes!\n";
+            ok 0;
+        }
+        else {
+            ok 1;
+        }
+    }
+}
+    
-- 
cgit v1.2.3