Author: pgollucci
Date: Tue Jun 6 02:40:11 2006
New Revision: 412063
URL: http://svn.apache.org/viewvc?rev=412063&view=rev
Log:
2.2.1+ C-L is returned
2.2.0 C-L is not returned
2.0.56+ C-L is returned
2.0.55- C-L is not returned
Failure on 2.2.0 reported by
Reported by: Torsten Foertsch <[EMAIL PROTECTED]>
Message Id: [EMAIL PROTECTED]
Modified:
perl/modperl/trunk/t/apache/content_length_header.t
Modified: perl/modperl/trunk/t/apache/content_length_header.t
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/t/apache/content_length_header.t?rev=412063&r1=412062&r2=412063&view=diff
==============================================================================
--- perl/modperl/trunk/t/apache/content_length_header.t (original)
+++ perl/modperl/trunk/t/apache/content_length_header.t Tue Jun 6 02:40:11 2006
@@ -65,7 +65,25 @@
my $res = $method->($uri);
my $cl = 0;
- my $head_cl = have_min_apache_version("2.0.56") ? 25 : undef;
+ my $head_cl;
+
+ ## 2.2.1, 2.0.56, 2.0.57 were not released
+ ## but we use the versions the changes went into
+ ## to protect against wierd SVN checkout building.
+ ## XXX: I'm starting to think this test is more
+ ## trouble then its worth.
+ if (have_min_apache_version("2.2.1")) {
+ $head_cl = 25;
+ }
+ elsif (have_min_apache_version("2.2.0")) {
+ # $head_cl = undef; # avoid warnings
+ }
+ elsif (have_min_apache_version("2.0.56")) {
+ $head_cl = 25;
+ }
+ else {
+ # $head_cl = undef; # avoid warnings
+ }
ok t_cmp $res->code, 200, "$method $uri code";
ok t_cmp ($res->header('Content-Length'),
