[gitmo/Class-MOP.git] / t / 085_load_class_gvstash_detect_bug.t

use strict;
use warnings;
use Test::More;
use Test::Fatal;

use Class::MOP;
use lib 't/lib';

ok ! exception {
    Class::MOP::load_class('TestClassLoaded::Sub');
};

TestClassLoaded->can('a_method');

ok ! exception {
    Class::MOP::load_class('TestClassLoaded');
};

ok ! exception {
    TestClassLoaded->a_method;
};

done_testing;
Commit	Line	Data
860f85ab	1	use strict;
860f85ab	2	use warnings;
86a4d873	3	use Test::More;
13b8971f	4	use Test::Fatal;
860f85ab	5
	6	use Class::MOP;
	7	use lib 't/lib';
	8
13b8971f	9	ok ! exception {
860f85ab	10	Class::MOP::load_class('TestClassLoaded::Sub');
	11	};
	12
	13	TestClassLoaded->can('a_method');
	14
13b8971f	15	ok ! exception {
860f85ab	16	Class::MOP::load_class('TestClassLoaded');
	17	};
	18
13b8971f	19	ok ! exception {
860f85ab	20	TestClassLoaded->a_method;
86a4d873	21	};
	22
	23	done_testing;