X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F056-role-combine.t;h=c195d59939db6c5f28ff9e30c5a6610d4cf30311;hb=3aa1e09a9e63a374c0057a91eed32d41287d2ee0;hp=6ebe4e3e329698e86ee29e88a4a06b9c95859625;hpb=920139b3efca66d2caeeef306c97fa0da62c6b73;p=gitmo%2FMouse.git diff --git a/t/001_mouse/056-role-combine.t b/t/001_mouse/056-role-combine.t index 6ebe4e3..c195d59 100644 --- a/t/001_mouse/056-role-combine.t +++ b/t/001_mouse/056-role-combine.t @@ -1,35 +1,35 @@ -#!perl -use strict; -use warnings; -use Test::More tests => 2; -use Test::Exception; -{ - package RoleA; - use Mouse::Role; - - sub foo { } - sub bar { } -} -{ - package RoleB; - use Mouse::Role; - - sub foo { } - sub bar { } -} -{ - package Class; - use Mouse; - use Test::More; - use Test::Exception; - - throws_ok { - with qw(RoleA RoleB); - } qr/Due to method name conflicts in roles 'RoleA' and 'RoleB', the methods 'bar' and 'foo' must be/; - - lives_ok { - with RoleA => { -excludes => ['foo'] }, - RoleB => { -excludes => ['bar'] }, - ; - }; -} +#!perl +use strict; +use warnings; +use Test::More tests => 2; +use Test::Exception; +{ + package RoleA; + use Mouse::Role; + + sub foo { } + sub bar { } +} +{ + package RoleB; + use Mouse::Role; + + sub foo { } + sub bar { } +} +{ + package Class; + use Mouse; + use Test::More; + use Test::Exception; + + throws_ok { + with qw(RoleA RoleB); + } qr/Due to method name conflicts in roles 'RoleA' and 'RoleB', the methods 'bar' and 'foo' must be/; + + lives_ok { + with RoleA => { -excludes => ['foo'] }, + RoleB => { -excludes => ['bar'] }, + ; + }; +}