From 51f82ea92b494418fe5c73b618b1420a347c9673 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 28 Dec 2012 06:45:36 -0600 Subject: method stubs are {...}, not {*} --- t/001_constructor_injection.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 't/001_constructor_injection.t') diff --git a/t/001_constructor_injection.t b/t/001_constructor_injection.t index b6e03bc..471b731 100644 --- a/t/001_constructor_injection.t +++ b/t/001_constructor_injection.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); } -- cgit v1.2.3-54-g00ecf