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

[stas]

stas        01/10/18 19:40:41

  Modified:    ModPerl-Registry/t TEST.PL
  Log:
  - allow 2 maxclients, since some tests generate two requests at the same
  time (one from within the other)
  
  Revision  Changes    Path
  1.2       +15 -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.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- TEST.PL   2001/10/09 12:47:38     1.1
  +++ TEST.PL   2001/10/19 02:40:41     1.2
  @@ -3,15 +3,22 @@
   use strict;
   use warnings FATAL => 'all';
   
  -# XXX: fixme
  -#use lib map { "$_/Apache-Test/lib" } qw(. ..);
  -#use lib map { "$_/blib/lib"        } qw(. .. ../..);
  -#use lib map { "$_/lib"             } qw(. .. ../..);
  -#use blib map { $_ } qw(. .. ../..);
  -
   use lib map {("../blib/$_", "../../blib/$_")} qw(lib arch);
  -#use blib qw(..);
   
   use Apache::TestRunPerl ();
  +
  +package MyTest;
  +
  +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 {
  +    my $self = shift;
  +
  +    $self->{conf_opts}->{maxclients} = 2;
  +
  +    return $self->SUPER::new_test_config;
  +}
   
  -Apache::TestRunPerl->new->run(@ARGV);
  +MyTest->new->run(@ARGV);