X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F08-role-composition.t;h=44e9af2ad1235fb2ff8c5fdc1987332600f51842;hb=289b346600541ae484790dd7d36a704edcac1945;hp=93ecdd1ce49df84291fb64aaac5cfcaf8ffd2cb7;hpb=b4b5ade5e08b50612359087d4ebd521988c230bf;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/t/08-role-composition.t b/t/08-role-composition.t index 93ecdd1..44e9af2 100644 --- a/t/08-role-composition.t +++ b/t/08-role-composition.t @@ -28,8 +28,9 @@ use Test::More; with( 'Role2', 'Role' ); } -{ - can_ok( 'Bar', 'CA', ); -} +ok( + Bar->can('CA'), + 'Class attributes are preserved during role composition' +); done_testing();