use strict;
use warnings;
-use Test::More tests => 28;
+use Test::More tests => 29;
use Test::Exception;
require Class::MOP;
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' );
+}
+++ /dev/null
-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' );
-
-