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/04/04 07:45:48 UTC
cvs commit: modperl-2.0/t/response/TestAPI module.pm
dougm 01/04/03 22:45:48
Added: t/response/TestAPI module.pm
Log:
add a test for Apache::Module
Revision Changes Path
1.1 modperl-2.0/t/response/TestAPI/module.pm
Index: module.pm
===================================================================
package TestAPI::module;
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::Module ();
use DynaLoader ();
sub handler {
my $r = shift;
plan $r, tests => 6;
my $top_module = Apache::Module->top_module;
ok $top_module;
ok $top_module->version;
ok $top_module->module_index;
ok $top_module->name;
ok $top_module->cmds;
for (my $modp = $top_module; $modp; $modp = $modp->next) {
if ($modp->name eq 'mod_perl.c') {
ok 1;
last;
}
}
0;
}
1;