[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