[gitmo/Mouse.git] / t / 020-load-class.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 5;
use Test::Exception;

require Mouse;
use lib 't/lib';

ok(Mouse::load_class('Anti::Mouse'));
can_ok('Anti::Mouse' => 'antimouse');

do {
    package Class;
    sub yay {}
};

ok(Mouse::load_class('Class'), "this should not die!");

throws_ok {
    Mouse::load_class('FakeClassOhNo');
} qr/Can't locate /;

throws_ok {
    Mouse::load_class('Anti::MouseError');
} qr/Missing right curly/;
Commit	Line	Data
c3398f5b	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 5;
	5	use Test::Exception;
	6
	7	require Mouse;
	8	use lib 't/lib';
	9
	10	ok(Mouse::load_class('Anti::Mouse'));
	11	can_ok('Anti::Mouse' => 'antimouse');
	12
	13	do {
	14	package Class;
2a674d23	15	sub yay {}
c3398f5b	16	};
	17
	18	ok(Mouse::load_class('Class'), "this should not die!");
	19
2a674d23	20	throws_ok {
	21	Mouse::load_class('FakeClassOhNo');
	22	} qr/Can't locate /;
c3398f5b	23
	24	throws_ok {
	25	Mouse::load_class('Anti::MouseError');
	26	} qr/Missing right curly/;
	27