untodo line number tests

[p5sagit/Function-Parameters.git] / t / lineno.t

diff --git a/t/lineno.t b/t/lineno.t
index 40ac0be..578570d 100644 (file)
--- a/t/lineno.t
+++ b/t/lineno.t
@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 8;
+use Test::More tests => 10;
 
 use Function::Parameters;
 
@@ -48,8 +48,8 @@ fun () {
 
 test_loc 'LX -- 3';
 
-TODO: {
-       local $TODO = 'expressions break line numbers???';
+{
+       #local $TODO = 'expressions break line numbers???';
 
        0
        , fun {
@@ -60,4 +60,17 @@ TODO: {
        test_loc 'LX -- 4';
 }
 
+{
+       #local $TODO = 'newlines in prototype/attributes';
+
+       fun wtf :(
+
+       )
+       :
+       { test_loc 'LX -- 5 (inner)' }
+
+       wtf;
+       test_loc 'LX -- 5 (outer)';
+}
+
 __DATA__