cvs commit: modperl-2.0/ModPerl-Registry/t/cgi-bin 206.pl

[stas]

stas        2003/02/04 20:10:05

  Added:       ModPerl-Registry/t 206.t
               ModPerl-Registry/t/cgi-bin 206.pl
  Log:
  verify that scripts generating partial content headers are working
  correctly
  
  Revision  Changes    Path
  1.1                  modperl-2.0/ModPerl-Registry/t/206.t
  
  Index: 206.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::TestRequest qw(GET);
  
  plan tests => 2;
  
  my $url = "/registry/206.pl";
  my $res = GET($url);
  my $body = '<?xml versi';
  
  ok t_cmp(
      206,
      $res->code,
      "test partial_content: response code",
  );
  
  ok t_cmp(
      $body,
      $res->content,
      "test partial_content: response body",
  );
  
  
  
  1.1                  modperl-2.0/ModPerl-Registry/t/cgi-bin/206.pl
  
  Index: 206.pl
  ===================================================================
         print <<_OUT_;
  Status: 206 Partial Content
  Content-Type: text/html; charset=UTF-8
  Content-Length: 11
  Content-Range: bytes 0-10/1336
  Date: Fri, 31 Jan 2003 09:39:01 GMT
  ETag: "xxxx"
  
  _OUT_
  print '<?xml versi';