[Moose-commits] r7577 - Class-MOP/trunk/t

[autarch at code2.0beta.co.uk]

Author: autarch
Date: 2009-02-08 06:53:48 -0800 (Sun, 08 Feb 2009)
New Revision: 7577

Removed:
   Class-MOP/trunk/t/306_is_class_loaded.t
Modified:
   Class-MOP/trunk/t/083_load_class.t
Log:
move 306 test to 083 where the other class loading/is it loaded tests live

Modified: Class-MOP/trunk/t/083_load_class.t
===================================================================
--- Class-MOP/trunk/t/083_load_class.t	2009-02-08 14:46:45 UTC (rev 7576)
+++ Class-MOP/trunk/t/083_load_class.t	2009-02-08 14:53:48 UTC (rev 7577)
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 28;
+use Test::More tests => 29;
 use Test::Exception;
 
 require Class::MOP;
@@ -82,4 +82,12 @@
     Class::MOP::load_first_existing_class("Does::Not::Exist", "Also::Does::Not::Exist")
 } qr/Could not load class \(Does::Not::Exist.*Could not load class \(Also::Does::Not::Exist/s, 'Multiple non-existant classes cause exception';
 
+{
+    sub whatever {
+        TestClassLoaded::this_method_does_not_even_exist();
+    }
 
+    ok( ! Class::MOP::is_class_loaded('TestClassLoaded'),
+        'the mere mention of TestClassLoaded in the whatever sub does not make us think it has been loaded' );
+}
+

Deleted: Class-MOP/trunk/t/306_is_class_loaded.t
===================================================================
--- Class-MOP/trunk/t/306_is_class_loaded.t	2009-02-08 14:46:45 UTC (rev 7576)
+++ Class-MOP/trunk/t/306_is_class_loaded.t	2009-02-08 14:53:48 UTC (rev 7577)
@@ -1,25 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin qw/$Bin/;
-use lib "$Bin/lib";
-
-use Test::More;
-use Class::MOP ();
-
-plan tests => 1;
-
-# There was a bug that manifest on Perl < 5.10 when running under
-# XS. The mere mention of TestClassLoaded below broke the
-# is_class_loaded check.
-
-sub whatever {
-    TestClassLoaded::this_method_does_not_even_exist();
-}
-
-Class::MOP::load_class('TestClassLoaded');
-
-ok( TestClassLoaded->can('a_method'),
-    'TestClassLoader::a_method is defined' );
-
-