diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-12-28 06:45:36 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-12-28 06:45:36 -0600 |
| commit | 51f82ea92b494418fe5c73b618b1420a347c9673 (patch) | |
| tree | a760361dda9b168b0c7448f5b5e09528a17251e4 /t | |
| parent | 78a70ab703db2f44d4af3117388e62a2ac1396fa (diff) | |
| download | p6-bread-board-51f82ea92b494418fe5c73b618b1420a347c9673.tar.gz p6-bread-board-51f82ea92b494418fe5c73b618b1420a347c9673.zip | |
method stubs are {...}, not {*}
Diffstat (limited to 't')
| -rw-r--r-- | t/001_constructor_injection.t | 5 | ||||
| -rw-r--r-- | t/003_block_injection.t | 5 | ||||
| -rw-r--r-- | t/004_block_injection_w_out_class.t | 5 | ||||
| -rw-r--r-- | t/010_container.t | 5 |
4 files changed, 16 insertions, 4 deletions
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); } |