This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change the tests for #3105 into to-dos
authorFather Chrysostomos <sprout@cpan.org>
Sun, 16 Jun 2013 04:52:07 +0000 (21:52 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 26 Jul 2013 06:47:58 +0000 (23:47 -0700)
instead of testing for the incorrect behaviour

t/op/range.t

index 6554938..264d19a 100644 (file)
@@ -390,16 +390,20 @@ is(stores($x), 0);
 
 is( ( join ' ', map { join '', map ++$_, ($x=1)..4 } 1..2 ), '2345 2345',
     'modifiable variable num range' );
-is( ( join ' ', map { join '', map ++$_, 1..4      } 1..2 ), '2345 3456',
+$::TODO = ' ';;
+is( ( join ' ', map { join '', map ++$_, 1..4      } 1..2 ), '2345 2345',
     'modifiable const num range' );  # Unresolved bug RT#3105
+undef $::TODO;
 $s = ''; for (1..2) { for (1..4) { $s .= ++$_ } $s.=' ' if $_==1; }
 is( $s, '2345 2345','modifiable num counting loop counter' );
 
 
 is( ( join ' ', map { join '', map ++$_, ($x='a')..'d' } 1..2 ), 'bcde bcde',
     'modifiable variable alpha range' );
-is( ( join ' ', map { join '', map ++$_, 'a'..'d'      } 1..2 ), 'bcde cdef',
+$::TODO = ' ';
+is( ( join ' ', map { join '', map ++$_, 'a'..'d'      } 1..2 ), 'bcde bcde',
     'modifiable const alpha range' );  # Unresolved bug RT#3105
+undef $::TODO;
 $s = ''; for (1..2) { for ('a'..'d') { $s .= ++$_ } $s.=' ' if $_==1; }
 is( $s, 'bcde bcde','modifiable alpha counting loop counter' );