X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F400-define-role.t;h=7067651853bbb9e90c6bef3981da7d672de46d79;hb=612d3e1a65aebf8042df5972079695883a4eec6e;hp=65c151ed122d50c7e0cb37afcaca24a67b8ac5fe;hpb=2badb84a6fe5f279c120179030f77c62d9b4dd05;p=gitmo%2FMouse.git diff --git a/t/400-define-role.t b/t/400-define-role.t index 65c151e..7067651 100644 --- a/t/400-define-role.t +++ b/t/400-define-role.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 12; +use Test::More tests => 11; use Test::Exception; lives_ok { @@ -44,7 +44,7 @@ lives_ok { package Role; use Mouse::Role; - has 'foo'; + has 'foo' => (is => 'bare'); no Mouse::Role; }; @@ -55,32 +55,28 @@ do { no Mouse::Role; }; -throws_ok { +lives_ok { package Role; use Mouse::Role; with 'Other::Role'; no Mouse::Role; -} qr/Mouse::Role does not currently support 'with'/; - -throws_ok { - package Role; - use Mouse::Role; - - requires 'required'; - - no Mouse::Role; -} qr/Mouse::Role does not currently support 'requires'/; +}; -throws_ok { +TODO: { package Role; use Mouse::Role; - excludes 'excluded'; + eval { + excludes 'excluded'; + }; + our $TODO; + local $TODO = "Mouse::Role does not currently support 'excludes'"; + ::ok(!$@, "excludes"); no Mouse::Role; -} qr/Mouse::Role does not currently support 'excludes'/; +}; throws_ok { package Role; @@ -98,10 +94,10 @@ lives_ok { ::is(blessed($obj), "Impromptu::Class"); }; -throws_ok { +lives_ok{ package Class; use Mouse; with 'Role', 'Other::Role'; -} qr/Mouse::Role only supports 'with' on individual roles at a time/; +};