[gitmo/Class-MOP.git] / t / 306_is_class_loaded.t

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' );
Commit	Line	Data
89f74416	1	use strict;
89f74416	2	use warnings;
89f74416	3
8db4963b	4	use FindBin qw/$Bin/;
	5	use lib "$Bin/lib";
	6
7699d177	7	use Test::More;
89f74416	8	use Class::MOP ();
89f74416	9
7699d177	10	plan tests => 1;
7699d177	11
0a6c6f37	12	# There was a bug that manifest on Perl < 5.10 when running under
	13	# XS. The mere mention of TestClassLoaded below broke the
	14	# is_class_loaded check.
7699d177	15
7699d177	16	sub whatever {
b39d2247	17	TestClassLoaded::this_method_does_not_even_exist();
89f74416	18	}
	19
	20	Class::MOP::load_class('TestClassLoaded');
	21
0a6c6f37	22	ok( TestClassLoaded->can('a_method'),
	23	'TestClassLoader::a_method is defined' );
	24
89f74416	25