[gitmo/Mouse.git] / t / 400-define-role.t

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

lives_ok {
    package Role;
    use Mouse::Role;

    no Mouse::Role;
};

throws_ok {
    package Role;
    use Mouse::Role;

    extends 'Role::Parent';

    no Mouse::Role;
} qr/Role does not currently support 'extends'/;
Commit	Line	Data
995061c2	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
8da998d9	4	use Test::More tests => 2;
995061c2	5	use Test::Exception;
	6
	7	lives_ok {
	8	package Role;
	9	use Mouse::Role;
	10
	11	no Mouse::Role;
	12	};
	13
8da998d9	14	throws_ok {
	15	package Role;
	16	use Mouse::Role;
	17
	18	extends 'Role::Parent';
964eaf79	19
	20	no Mouse::Role;
	21	} qr/Role does not currently support 'extends'/;
8da998d9	22