dougm 01/04/12 19:05:58 Added: t/hooks trans.t t/hooks/TestHooks trans.pm Log: add test for PerlTransHandler Revision Changes Path 1.1 modperl-2.0/t/hooks/trans.t Index: trans.t =================================================================== use strict; use warnings FATAL => 'all'; use Apache::Test; use Apache::TestRequest; use Apache::Const ':common'; plan tests => 3, \&have_lwp; ok GET_RC('/nope') == NOT_FOUND; my $module = '/TestHooks/trans.pm'; my $body = GET_BODY $module; ok $body =~ /package TestHooks::trans/; ok GET_OK '/phooey'; 1.1 modperl-2.0/t/hooks/TestHooks/trans.pm Index: trans.pm =================================================================== package TestHooks::trans; use strict; use warnings FATAL => 'all'; my %trans = ( '/TestHooks/trans.pm' => sub { my $r = shift; $r->filename(__FILE__); Apache::OK; }, '/phooey' => sub { shift->uri('/TestHooks::trans'); Apache::OK; }, ); sub handler { my $r = shift; my $handler = $trans{ $r->uri }; return Apache::DECLINED unless $handler; $handler->($r); } 1; __DATA__ PerlResponseHandler Apache::TestHandler::ok1 SetHandler modperl