stas 2002/06/26 09:16:58
Modified: t/response/TestApache compat2.pm
Log:
add Apache->module compat tests
Revision Changes Path
1.19 +9 -1 modperl-2.0/t/response/TestApache/compat2.pm
Index: compat2.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat2.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- compat2.pm 4 Jun 2002 13:04:47 -0000 1.18
+++ compat2.pm 26 Jun 2002 16:16:58 -0000 1.19
@@ -24,15 +24,23 @@
sub handler {
my $r = shift;
- plan $r, tests => 48;
+ plan $r, tests => 50;
$r->send_http_header('text/plain');
my $cfg = Apache::Test::config();
my $vars = $cfg->{vars};
+ ### Apache-> tests
my $fh = Apache->gensym;
ok t_cmp('GLOB', ref($fh), "Apache->gensym");
+
+ ok t_cmp(1, Apache->module('mod_perl.c'),
+ "Apache::module('mod_perl.c')");
+ ok t_cmp(0, Apache->module('mod_ne_exists.c'),
+ "Apache::module('mod_ne_exists.c')");
+
+ ### $r-> tests
# test header_in and header_out
# and err_header_out