stas 2004/08/25 14:39:40
Modified: t/response/TestAPI module.pm
Log:
be consistent
Revision Changes Path
1.19 +4 -2 modperl-2.0/t/response/TestAPI/module.pm
Index: module.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/module.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -u -r1.18 -r1.19
--- module.pm 25 Aug 2004 21:35:41 -0000 1.18
+++ module.pm 25 Aug 2004 21:39:40 -0000 1.19
@@ -60,11 +60,13 @@
# TestAPI::module::foo wasn't loaded but the stash exists
$TestAPI::module::foo::test = 1;
- ok !Apache::Module::loaded("TestAPI::module::foo");
+ ok t_cmp(Apache::Module::loaded('TestAPI::module::foo'), 0,
+ "Apache::Module::loaded('TestAPI::module::foo')");
# module TestAPI wasn't loaded but the stash exists, since
# TestAPI::module was loaded
- ok !Apache::Module::loaded("TestAPI");
+ ok t_cmp(Apache::Module::loaded('TestAPI'), 0,
+ "Apache::Module::loaded('TestAPI')");
}
#bogus
