You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/09/28 17:21:15 UTC
cvs commit: modperl-2.0/t/hooks/TestHooks headerparser.pm
dougm 01/09/28 08:21:15
Modified: t/hooks .cvsignore
Added: t/hooks/TestHooks headerparser.pm
Log:
add PerlHeaderParserHandler/SetupEnv test
Revision Changes Path
1.2 +1 -0 modperl-2.0/t/hooks/.cvsignore
Index: .cvsignore
===================================================================
RCS file: /home/cvs/modperl-2.0/t/hooks/.cvsignore,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- .cvsignore 2001/09/12 17:11:48 1.1
+++ .cvsignore 2001/09/28 15:21:15 1.2
@@ -1,3 +1,4 @@
+headerparser.t
access.t
authen.t
authz.t
1.1 modperl-2.0/t/hooks/TestHooks/headerparser.pm
Index: headerparser.pm
===================================================================
package TestHooks::headerparser;
use strict;
use warnings FATAL => 'all';
use Apache::Test;
sub handler {
my $r = shift;
$r->notes->set(url => $ENV{REQUEST_URI});
Apache::OK;
}
sub response {
my $r = shift;
plan $r, tests => 1;
ok $r->notes->get('url') eq $r->uri;
Apache::OK;
}
1;
__DATA__
PerlOptions +SetupEnv
PerlResponseHandler TestHooks::headerparser::response
SetHandler modperl