rewrite in XS
[p5sagit/Function-Parameters.git] / t / lineno.t
index 40ac0be..dabddf5 100644 (file)
@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 8;
+use Test::More tests => 10;
 
 use Function::Parameters;
 
@@ -60,4 +60,17 @@ TODO: {
        test_loc 'LX -- 4';
 }
 
+TODO: {
+       local $TODO = 'newlines in prototype/attributes';
+
+       fun wtf :(
+
+       )
+       :
+       { test_loc 'LX -- 5 (inner)' }
+
+       wtf;
+       test_loc 'LX -- 5 (outer)';
+}
+
 __DATA__