You are viewing a plain text version of this content. The canonical link for it is here.
Posted to cvs@httpd.apache.org by jo...@apache.org on 2020/07/02 08:35:07 UTC
svn commit: r1879434 - /httpd/test/framework/trunk/t/apache/leaks.t
Author: jorton
Date: Thu Jul 2 08:35:06 2020
New Revision: 1879434
URL: http://svn.apache.org/viewvc?rev=1879434&view=rev
Log:
Skip the entire test suite if mod_memory_track isn't active
(non-prefork, non-pool-debug builds). Re-indent; no
functional change.
Modified:
httpd/test/framework/trunk/t/apache/leaks.t
Modified: httpd/test/framework/trunk/t/apache/leaks.t
URL: http://svn.apache.org/viewvc/httpd/test/framework/trunk/t/apache/leaks.t?rev=1879434&r1=1879433&r2=1879434&view=diff
==============================================================================
--- httpd/test/framework/trunk/t/apache/leaks.t (original)
+++ httpd/test/framework/trunk/t/apache/leaks.t Thu Jul 2 08:35:06 2020
@@ -9,61 +9,55 @@ my $url = "/memory_track";
my $init_iters = 2000;
my $iters = 500;
+my $active = GET_RC($url) == 200;
+
my $num_tests = $init_iters + $iters * 2;
-plan tests => $num_tests;
+plan tests => $num_tests,
+ need { "mod_memory_track not activated" => $active };
### 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;
+my $cid = -1;
+my $mem;
-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);
+# initial iterations should get workers to steady-state memory use.
+foreach (1..$init_iters) {
+ ok t_cmp(GET_RC($url), 200, "200 response");
}
-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;
- }
+# 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) {
+ my $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;
}
}