X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fforeign%2Fsignatures%2Fproto.t;h=0f68e133ed758f1aeeac5c5647d73594639c43d1;hb=3517027a9d268798fcfa844a1f885a8fcba0dc5f;hp=ded1cc47fe942bc0ee04d46c89928e58db9b113b;hpb=91ad192b5d94ea86efed8a11b02174d7216897aa;p=p5sagit%2FFunction-Parameters.git diff --git a/t/foreign/signatures/proto.t b/t/foreign/signatures/proto.t index ded1cc4..0f68e13 100644 --- a/t/foreign/signatures/proto.t +++ b/t/foreign/signatures/proto.t @@ -30,14 +30,14 @@ BEGIN { is(@warnings, 0, 'no warnings with correct :proto declarations') } fun invalid_proto ($x) : (invalid) { $x } BEGIN { - TODO: { - local $TODO = ':proto checks not yet implemented'; + #TODO: { + # local $TODO = ':proto checks not yet implemented'; is(@warnings, 1, 'warning with illegal :proto'); like( $warnings[0], qr/Illegal character in prototype for fun invalid_proto : invalid at /, 'warning looks sane', ); - } + #} }