cvs commit: httpd-test/perl-framework/t/htdocs/modules/cgi ranged.pl.PL .cvsignore

[jo...@apache.org]

jorton      2004/06/16 10:11:58

  Modified:    perl-framework/t/htdocs/modules/cgi .cvsignore
  Added:       perl-framework/t/apache byterange2.t
               perl-framework/t/htdocs/modules/cgi ranged.pl.PL
  Log:
  Add regression test for handling of ia CGI script which handles
  the Range request header internally.
  
  Revision  Changes    Path
  1.1                  httpd-test/perl-framework/t/apache/byterange2.t
  
  Index: byterange2.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::TestRequest;
  
  plan tests => 1, have_min_apache_version('2.1.0');
  
  my $resp;
  
  $resp = GET_BODY "/modules/cgi/ranged.pl",
      Range => 'bytes=5-10/10';
  
  ok t_cmp($resp, "hello\n", "return correct content");
  
  
  
  1.6       +1 -0      httpd-test/perl-framework/t/htdocs/modules/cgi/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/htdocs/modules/cgi/.cvsignore,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -d -w -u -r1.5 -r1.6
  --- .cvsignore	5 May 2004 15:52:55 -0000	1.5
  +++ .cvsignore	16 Jun 2004 17:11:57 -0000	1.6
  @@ -8,3 +8,4 @@
   stderr2.pl
   stderr3.pl
   nph-stderr.pl
  +ranged.pl
  
  
  
  1.1                  httpd-test/perl-framework/t/htdocs/modules/cgi/ranged.pl.PL
  
  Index: ranged.pl.PL
  ===================================================================
  use strict;
  
  print "Content-type: text/plain\n";
  
  if ($ENV{'Range'} eq 'bytes=5-10/10') {
      print "Content-Range: bytes 5-10/10\n\n";
      print "hello\n";
  } else {
      print "\npardon?\n";
  }