Move t/*/t into t/001_mouse

[gitmo/Mouse.git] / t / 001_mouse / 056-role-combine.t

#!perl\r
use strict;\r
use warnings;\r
use Test::More tests => 2;\r
use Test::Exception;\r
{\r
    package RoleA;\r
    use Mouse::Role;\r
\r
    sub foo { }\r
    sub bar { }\r
}\r
{\r
    package RoleB;\r
    use Mouse::Role;\r
\r
    sub foo { }\r
    sub bar { }\r
}\r
{\r
    package Class;\r
    use Mouse;\r
    use Test::More;\r
    use Test::Exception;\r
\r
    throws_ok {\r
        with qw(RoleA RoleB);\r
    } qr/Due to method name conflicts in roles 'RoleA' and 'RoleB', the methods 'bar' and 'foo' must be/;\r
\r
    lives_ok {\r
        with RoleA => { -excludes => ['foo'] },\r
             RoleB => { -excludes => ['bar'] },\r
        ;\r
    };\r
}\r