diff options
Diffstat (limited to 't/004_block_injection_w_out_class.t')
-rw-r--r-- | t/004_block_injection_w_out_class.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/004_block_injection_w_out_class.t b/t/004_block_injection_w_out_class.t index 622335d..3313ca7 100644 --- a/t/004_block_injection_w_out_class.t +++ b/t/004_block_injection_w_out_class.t @@ -3,7 +3,10 @@ use Test; use Bread::Board; -sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) { +# TODO: doing anything at all with the type object for a role with required +# methods is broken +#sub does_ok(Mu $var, Mu $type, $msg = ("The object does '" ~ $type.perl ~ "'")) { +sub does_ok(Mu $var, Mu $type, $msg = ("The object does [some role]")) { ok($var.does($type), $msg); } |