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 st...@apache.org on 2004/07/03 23:18:27 UTC
cvs commit: modperl-2.0/t/response/TestAPI server_util.pm
stas 2004/07/03 14:18:27
Modified: t/response/TestAPI server_util.pm
Log:
test $s->get_handlers
Revision Changes Path
1.17 +11 -2 modperl-2.0/t/response/TestAPI/server_util.pm
Index: server_util.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_util.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -u -r1.16 -r1.17
--- server_util.pm 3 Jul 2004 18:45:46 -0000 1.16
+++ server_util.pm 3 Jul 2004 21:18:27 -0000 1.17
@@ -50,9 +50,18 @@
400 => '400 Bad Request',
500 => '500 Internal Server Error',
);
+
plan $r, tests => (scalar keys %pools) +
- (scalar keys %objects) +
- (scalar keys %status_lines) + 11;
+ (scalar keys %objects) +
+ (scalar keys %status_lines) + 12;
+
+ {
+ my $s = $r->server;
+ my @expected = qw(ModPerl::Test::exit_handler);
+ my @handlers =
+ @{ $s->get_handlers('PerlChildExitHandler') || []};
+ ok t_cmp(scalar(@handlers), scalar(@expected), "get_handlers");
+ }
# syntax - an object or pool is required
t_debug("Apache::server_root_relative() died");