cvs commit: httpd-test/perl-framework/t/apache contentlength.t

[jorton]

jorton      2004/10/20 07:52:21

  Modified:    perl-framework/t/apache contentlength.t
  Log:
  Skip tests with empty content-length until 2.1.0 since they
  have platform-specific behaviour.
  
  Revision  Changes    Path
  1.5       +9 -1      httpd-test/perl-framework/t/apache/contentlength.t
  
  Index: contentlength.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/apache/contentlength.t,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -d -w -u -r1.4 -r1.5
  --- contentlength.t   29 Sep 2004 06:53:42 -0000      1.4
  +++ contentlength.t   20 Oct 2004 14:52:21 -0000      1.5
  @@ -51,8 +51,16 @@
       # Read the status line
       chomp(my $response = Apache::TestRequest::getline($sock) || '');
       $response =~ s/\s$//;
  -    ok t_cmp($response, $resp_strings[$cycle++],
  +
  +    # Tests with empty content-length have platform-specific behaviour
  +    # until 2.1.0.
  +    skip 
  +      $data eq "" && !have_min_apache_version('2.1.0') ? 
  +         "skipping tests with empty Content-Length" : 0,
  +      t_cmp($response, $resp_strings[$cycle],
                "response codes POST for $request_uri with Content-Length: 
$data");
  +
  +    $cycle++;
   
       do {
           chomp($response = Apache::TestRequest::getline($sock) || '');