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>
