Return-Path: X-Original-To: apmail-httpd-dev-archive@www.apache.org Delivered-To: apmail-httpd-dev-archive@www.apache.org Received: from mail.apache.org (hermes.apache.org [140.211.11.3]) by minotaur.apache.org (Postfix) with SMTP id 97F119E9D for ; Tue, 17 Jan 2012 21:08:13 +0000 (UTC) Received: (qmail 4362 invoked by uid 500); 17 Jan 2012 21:08:12 -0000 Delivered-To: apmail-httpd-dev-archive@httpd.apache.org Received: (qmail 4293 invoked by uid 500); 17 Jan 2012 21:08:11 -0000 Mailing-List: contact dev-help@httpd.apache.org; run by ezmlm Precedence: bulk Reply-To: dev@httpd.apache.org list-help: list-unsubscribe: List-Post: List-Id: Delivered-To: mailing list dev@httpd.apache.org Received: (qmail 4284 invoked by uid 99); 17 Jan 2012 21:08:11 -0000 Received: from athena.apache.org (HELO athena.apache.org) (140.211.11.136) by apache.org (qpsmtpd/0.29) with ESMTP; Tue, 17 Jan 2012 21:08:11 +0000 X-ASF-Spam-Status: No, hits=1.2 required=5.0 tests=RCVD_IN_DNSWL_MED,SPF_PASS,URIBL_BLACK X-Spam-Check-By: apache.org Received-SPF: pass (athena.apache.org: local policy) Received: from [188.40.99.202] (HELO eru.sfritsch.de) (188.40.99.202) by apache.org (qpsmtpd/0.29) with ESMTP; Tue, 17 Jan 2012 21:08:06 +0000 Received: from [10.1.1.6] (helo=k.localnet) by eru.sfritsch.de with esmtp (Exim 4.72) (envelope-from ) id 1RnGFs-0000fN-J4 for dev@httpd.apache.org; Tue, 17 Jan 2012 22:07:45 +0100 From: Stefan Fritsch To: dev@httpd.apache.org Subject: Re: [VOTE] Release Apache httpd 2.4.0 Date: Tue, 17 Jan 2012 22:07:43 +0100 User-Agent: KMail/1.13.7 (Linux/3.1.0-1-amd64; KDE/4.6.5; x86_64; ; ) References: <20120117172550.GA6025@redhat.com> <0533C9F8-CB66-46E3-BC1B-A8E36BD17087@sharp.fm> In-Reply-To: <0533C9F8-CB66-46E3-BC1B-A8E36BD17087@sharp.fm> MIME-Version: 1.0 Content-Type: Multipart/Mixed; boundary="Boundary-00=_fMeFP0hXVbNsTxw" Message-Id: <201201172207.43719.sf@sfritsch.de> --Boundary-00=_fMeFP0hXVbNsTxw Content-Type: Text/Plain; charset="iso-8859-15" Content-Transfer-Encoding: 7bit On Tuesday 17 January 2012, Graham Leggett wrote: > # verifying that logged content is 256 characters > ok 51 > # posted content (length 1024) to bogus-perl.pl > # got return code of: 500, expecting: 500 > ok 52 > # verifying log did not increase in size... > ok 53 > # verifying log is greater than 8192 bytes. > ok 54 > # verifying log did not grow after making bogus request. > ok 55 > # verifying log did not grow after making another bogus request. > ok 56 > # checking that HEAD /modules/cgi/perl.pl returns 200. > ok 57 > Failed 1/58 subtests > > Test Summary Report > ------------------- > t/modules/cgi.t (Wstat: 0 Tests: 57 Failed: 0) > Parse errors: Bad plan. You planned 58 tests but ran 57. > Files=1, Tests=57, 22 wallclock secs ( 0.27 usr 0.22 sys + 3.06 > cusr 5.35 csys = 8.90 CPU) Result: FAIL > Failed 1/1 test programs. 0/57 subtests failed. > > Regards, > Graham > -- The diff to a PASS run starts with: # posted content (length 1024) to bogus-perl.pl # got return code of: 500, expecting: 500 ok 52 -# checking that log size (5115) is greater than 4516 +# verifying log did not increase in size... ok 53 -# verifying that logged content is 256 characters -ok 54 # verifying log is greater than 8192 bytes. -ok 55 +ok 54 It's certainly a bug in the test that the number of "ok"s differs in different code paths. Can you try if the attached diff gives better debug output with -v? --Boundary-00=_fMeFP0hXVbNsTxw Content-Type: text/x-patch; charset="ISO-8859-1"; name="cgi.t.diff" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="cgi.t.diff" Index: t/modules/cgi.t =================================================================== --- t/modules/cgi.t (Revision 1232562) +++ t/modules/cgi.t (Arbeitskopie) @@ -204,17 +204,23 @@ ## characters logged from the post content open (LOG, $cgi_log) or die "died opening cgi log: $!"; my $multiplier = 256; - while () { - if (/^$content+$/) { - chomp; - $multiplier = $length unless $length > $multiplier; - print "# verifying that logged content is $multiplier characters\n"; - ok ($_ eq "$content"x$multiplier); - last; - } + my $log; + { + local $/; + $log = ; } close (LOG); - + $multiplier = $length unless $length > $multiplier; + print "# verifying that logged content is $multiplier characters\n"; + if ($log =~ /^(?:$content){$multiplier}\n?$/m) { + ok 1; + } + else { + $log =~ s{^}{# }m; + print "# no log line found with $multiplier '$content' characters\n"; + print "# log is:\n'$log'\n"; + ok 0; + } } else { ## log does not exist ## print "# cgi log does not exist, test fails.\n"; --Boundary-00=_fMeFP0hXVbNsTxw--