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