cvs commit: modperl-2.0/ModPerl-Registry/t TEST.PL

[stas]

stas        2003/08/26 15:32:08

  Modified:    ModPerl-Registry/t TEST.PL
  Log:
  a bit of cleanup
  
  Revision  Changes    Path
  1.9       +10 -8     modperl-2.0/ModPerl-Registry/t/TEST.PL
  
  Index: TEST.PL
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/TEST.PL,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- TEST.PL   20 May 2003 06:03:46 -0000      1.8
  +++ TEST.PL   26 Aug 2003 22:32:08 -0000      1.9
  @@ -6,16 +6,21 @@
   use lib "$FindBin::Bin/../lib";
   use lib grep { -d } map "$FindBin::Bin/../../$_", qw(lib Apache-Test/lib);
   
  -use Apache::TestRunPerl ();
  +MyTest->new->run(@ARGV);
  +
  +
   
   # sub-class Apache::TestRunPerl
   package MyTest;
   
  +use base qw(Apache::TestRunPerl);
  +
  +# redirect tests require 2 servers
  +use constant MIN_MAXCLIENTS => 2;
  +
   use Cwd ();
   use File::Spec::Functions qw(splitpath splitdir catpath catdir rootdir);
   
  -our @ISA = qw(Apache::TestRunPerl);
  -
   # subclass new_test_config to add some config vars which will be
   # replaced in generated httpd.conf
   sub new_test_config {
  @@ -25,12 +30,9 @@
       my @dir = grep {length} splitdir $dir;
       $dir = catdir @dir[0..($#dir-2)]; # remove two last dir segments
       my $base = catpath $volume, rootdir(), $dir, $file;
  -
  -    $self->{conf_opts}->{maxclients} = 2;
  -
       $self->{conf_opts}->{src_dir} = catdir $base, qw(src modules perl);
   
  +    $self->{conf_opts}->{maxclients} = MIN_MAXCLIENTS;
  +
       return $self->SUPER::new_test_config;
   }
  -
  -MyTest->new->run(@ARGV);