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

[dougm]

dougm       01/12/10 21:12:14

  Modified:    perl-framework/t/apache byterange.t
  Log:
  switch to using Apache::TestCommon::run_files_test
  
  Revision  Changes    Path
  1.4       +4 -35     httpd-test/perl-framework/t/apache/byterange.t
  
  Index: byterange.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/apache/byterange.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- byterange.t       2001/11/09 01:30:35     1.3
  +++ byterange.t       2001/12/11 05:12:14     1.4
  @@ -2,44 +2,13 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  -use Apache::TestRequest;
  -use File::Basename;
  +use Apache::TestRequest ();
  +use Apache::TestCommon ();
   
  -my $ua = Apache::TestRequest::user_agent();
  +Apache::TestCommon::run_files_test(\&verify, 1);
   
  -my $vars = Apache::Test::vars();
  -my $perlpod = $vars->{perlpod};
  -my @pods;
  -
  -if (-d $perlpod) {
  -    @pods = map { basename $_ } <$perlpod/*.pod>;
  -}
  -else {
  -    $perlpod = undef;
  -}
  -
  -#too friggin slow over ssl at the moment
  -#my %other_files = map {
  -#    ("/getfiles-binary-$_", $vars->{$_})
  -#} qw(httpd perl);
  -
  -my %other_files;
  -
  -plan tests => @pods + keys(%other_files), 
  -    skip_unless(sub { $vars->{perlpod} }, "dir $vars->{perlpod} doesn't 
exist");
  -
  -for my $url (keys %other_files) {
  -    verify($url, $other_files{$url});
  -}
  -
  -my $location = "/getfiles-perl-pod";
  -
  -for my $file (@pods) {
  -    verify("$location/$file", "$perlpod/$file");
  -}
  -
   sub verify {
  -    my($url, $file) = @_;
  +    my($ua, $url, $file) = @_;
       my $debug = $Apache::TestRequest::DebugLWP;
   
       $url = Apache::TestRequest::resolve_url($url);