From 3e7dc34d32213cb653210d951014bfc892603154 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 28 Dec 2012 06:47:27 -0600 Subject: mark these comments as issues with perl6 --- t/001_constructor_injection.t | 2 +- t/003_block_injection.t | 2 +- t/004_block_injection_w_out_class.t | 2 +- t/010_container.t | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) (limited to 't') diff --git a/t/001_constructor_injection.t b/t/001_constructor_injection.t index 471b731..2d73e3a 100644 --- a/t/001_constructor_injection.t +++ b/t/001_constructor_injection.t @@ -3,7 +3,7 @@ use Test; use Bread::Board; -# TODO: doing anything at all with the type object for a role with required +# PERL6: 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]")) { diff --git a/t/003_block_injection.t b/t/003_block_injection.t index a235fc7..c7eb618 100644 --- a/t/003_block_injection.t +++ b/t/003_block_injection.t @@ -3,7 +3,7 @@ use Test; use Bread::Board; -# TODO: doing anything at all with the type object for a role with required +# PERL6: 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]")) { diff --git a/t/004_block_injection_w_out_class.t b/t/004_block_injection_w_out_class.t index 3313ca7..8ac4d65 100644 --- a/t/004_block_injection_w_out_class.t +++ b/t/004_block_injection_w_out_class.t @@ -3,7 +3,7 @@ use Test; use Bread::Board; -# TODO: doing anything at all with the type object for a role with required +# PERL6: 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]")) { diff --git a/t/010_container.t b/t/010_container.t index a2105d8..c529294 100644 --- a/t/010_container.t +++ b/t/010_container.t @@ -3,7 +3,7 @@ use Test; use Bread::Board; -# TODO: doing anything at all with the type object for a role with required +# PERL6: 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]")) { -- cgit v1.2.3-54-g00ecf