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/12/04 23:44:29 UTC
cvs commit: modperl-2.0/t/response/TestAPI lookup_uri2.pm
dougm 01/12/04 14:44:29
Modified: t/api .cvsignore
Added: t/response/TestAPI lookup_uri2.pm
Log:
add another lookup_uri test that mixes subrequest output with main request output
Revision Changes Path
1.3 +1 -0 modperl-2.0/t/api/.cvsignore
Index: .cvsignore
===================================================================
RCS file: /home/cvs/modperl-2.0/t/api/.cvsignore,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- .cvsignore 2001/11/12 22:39:03 1.2
+++ .cvsignore 2001/12/04 22:44:29 1.3
@@ -2,6 +2,7 @@
aplog.t
conn_rec.t
lookup_uri.t
+lookup_uri2.t
module.t
request_rec.t
response.t
1.1 modperl-2.0/t/response/TestAPI/lookup_uri2.pm
Index: lookup_uri2.pm
===================================================================
package TestAPI::lookup_uri2;
use strict;
use warnings FATAL => 'all';
use Apache::SubRequest ();
sub myplan {
my $r = shift;
$r->puts("1..3\nok 1\n");
Apache::OK;
}
sub ok3 {
my $r = shift;
$r->puts("ok 3\n");
Apache::OK;
}
sub subrequest {
my($r, $sub) = @_;
$r->lookup_uri(join '::', __PACKAGE__, $sub)->run;
}
sub handler {
my $r = shift;
subrequest($r, 'myplan');
$r->puts("ok 2\n");
subrequest($r, 'ok3');
Apache::OK;
}
1;
__DATA__
<Location /TestAPI::lookup_uri2::myplan>
SetHandler modperl
PerlResponseHandler TestAPI::lookup_uri2::myplan
</Location>
<Location /TestAPI::lookup_uri2::ok3>
SetHandler modperl
PerlResponseHandler TestAPI::lookup_uri2::ok3
</Location>