[Bps-public-commit] r14886 - in Class-Require/trunk: t
sartak at bestpractical.com
sartak at bestpractical.com
Wed Aug 6 20:57:18 EDT 2008
Author: sartak
Date: Wed Aug 6 20:57:17 2008
New Revision: 14886
Modified:
Class-Require/trunk/ (props changed)
Class-Require/trunk/t/001-is-class-loaded.t
Log:
r68920 at onn: sartak | 2008-08-06 20:56:59 -0400
Allow $ISA and @VERSION because checking the globref autovivifies :/
Modified: Class-Require/trunk/t/001-is-class-loaded.t
==============================================================================
--- Class-Require/trunk/t/001-is-class-loaded.t (original)
+++ Class-Require/trunk/t/001-is-class-loaded.t Wed Aug 6 20:57:17 2008
@@ -17,12 +17,12 @@
};
ok(is_class_loaded('Class::Require::WithISA'), "class that defines \@ISA is loaded");
# }}}
-# $ISA (no) {{{
+# $ISA (yes, sadly) {{{
do {
package Class::Require::WithScalarISA;
our $ISA = 'Class::Require';
};
-ok(!is_class_loaded('Class::Require::WithScalarISA'), "class that defines \$ISA is not loaded");
+ok(is_class_loaded('Class::Require::WithScalarISA'), "class that defines \$ISA is loaded");
# }}}
# $VERSION (yes) {{{
do {
@@ -31,12 +31,12 @@
};
ok(is_class_loaded('Class::Require::WithVERSION'), "class that defines \$VERSION is loaded");
# }}}
-# @VERSION (no) {{{
+# @VERSION (yes, sadly) {{{
do {
package Class::Require::WithArrayVERSION;
our @VERSION = "1.0";
};
-ok(!is_class_loaded('Class::Require::WithArrayVERSION'), "class that defines \@VERSION is not loaded");
+ok(is_class_loaded('Class::Require::WithArrayVERSION'), "class that defines \@VERSION is loaded");
# }}}
# method (yes) {{{
do {
More information about the Bps-public-commit
mailing list