[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;
};

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

TODO: {
    local $TODO = "can't have the previous test and this test pass.. yet";
    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;
	15	};
	16
	17	ok(Mouse::load_class('Class'), "this should not die!");
	18
	19	TODO: {
	20	local $TODO = "can't have the previous test and this test pass.. yet";
	21	throws_ok {
	22	Mouse::load_class('FakeClassOhNo');
	23	} qr/Can't locate /;
	24	};
	25
	26	throws_ok {
	27	Mouse::load_class('Anti::MouseError');
	28	} qr/Missing right curly/;
	29