untodo line number tests
Lukas Mai [Sun, 17 Jun 2012 01:10:04 +0000 (03:10 +0200)]
t/lineno-torture.t
t/lineno.t

index cdbf4fb..34b672d 100644 (file)
@@ -146,8 +146,8 @@ sub {
 
 }->(sub { my $n = shift; is $n, 2, '1 + 1 = 2' }, 1, 1);
 
-TODO: {
-       local $TODO = 'line numbers all fucked up';
+{
+       #local $TODO = 'line numbers all fucked up';
 
        fun ($r, $a, $b) {
                test_loc 'LX torture begin';
index dabddf5..578570d 100644 (file)
@@ -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,8 +60,8 @@ TODO: {
        test_loc 'LX -- 4';
 }
 
-TODO: {
-       local $TODO = 'newlines in prototype/attributes';
+{
+       #local $TODO = 'newlines in prototype/attributes';
 
        fun wtf :(