perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/conf extra.conf.in
Date Sat, 15 Nov 2003 19:36:00 GMT
stas        2003/11/15 11:36:00

  Modified:    t/conf   extra.conf.in
  Added:       t/modules apache_status.t
  Log:
  a new test to test Apache::Status
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/modules/apache_status.t
  
  Index: apache_status.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestRequest;
  use Apache::TestUtil;
  
  my $base_url = '/status/perl';
  
  my @opts = qw(script myconfig rgysubs section_config env isa_tree
                symdump inc inh_tree sig);
  
  plan tests => @opts + 1;
  
  {
      my $url = "$base_url";
      my $body = GET_BODY_ASSERT $url;
      (my $pver = $]) =~ s/00//;
      $pver =~ s/(\d\.\d)(.*)/"$1." . ($2 ? int($2) : 0)/e;
      #t_debug $body;
      t_debug $pver;
      # expecting: Embedded Perl version v5.8.2 for ...
      ok $body =~ /$pver/;
  }
  
  for my $opt (@opts) {
      my $url = "$base_url?$opt";
      ok GET_BODY_ASSERT $url;
  }
  
  
  
  1.9       +13 -0     modperl-2.0/t/conf/extra.conf.in
  
  Index: extra.conf.in
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/conf/extra.conf.in,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -u -r1.8 -r1.9
  --- extra.conf.in	9 Oct 2003 20:03:31 -0000	1.8
  +++ extra.conf.in	15 Nov 2003 19:36:00 -0000	1.9
  @@ -34,3 +34,16 @@
   SetEnv TMPDIR @t_logs@
   # </sandbox-friendly>
   
  +<Location /status/perl>
  +#    PerlSetVar StatusOptionsAll On
  +#    PerlSetVar StatusDumper On
  +#    PerlSetVar StatusPeek On
  +#    PerlSetVar StatusLexInfo On
  +#    PerlSetVar StatusDeparse On
  +#    PerlSetVar StatusDeparseOptions "-p -sC"
  +#    PerlSetVar StatusTerse On
  +#    PerlSetVar StatusTerseSize On
  +#    PerlSetVar StatusTerseSizeMainSummary On
  +    SetHandler modperl
  +    PerlResponseHandler Apache::Status
  +</Location>
  
  
  

Mime
View raw message