From 51f82ea92b494418fe5c73b618b1420a347c9673 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 28 Dec 2012 06:45:36 -0600
Subject: method stubs are {...}, not {*}

---
 t/001_constructor_injection.t       | 5 ++++-
 t/003_block_injection.t             | 5 ++++-
 t/004_block_injection_w_out_class.t | 5 ++++-
 t/010_container.t                   | 5 ++++-
 4 files changed, 16 insertions(+), 4 deletions(-)

(limited to '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);
 }
 
diff --git a/t/003_block_injection.t b/t/003_block_injection.t
index 9f45380..a235fc7 100644
--- a/t/003_block_injection.t
+++ b/t/003_block_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);
 }
 
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);
 }
 
diff --git a/t/010_container.t b/t/010_container.t
index 6ccc861..a2105d8 100644
--- a/t/010_container.t
+++ b/t/010_container.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