diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/op/studytied.t | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/t/op/studytied.t b/t/op/studytied.t index 2a78c8c2e2..d50c964744 100644 --- a/t/op/studytied.t +++ b/t/op/studytied.t @@ -41,16 +41,10 @@ for my $do_study qw( 0 1 ) { is( index( $x, 'f' ), -1, qq{"next" doesn't contain "f"} ); # Subsequent references to $x are "next", so should match /n/ - TODO: { - local $TODO = $do_study ? 'not yet fixed' : 0; - ok( $x =~ /n/, qq{"next" matches /n/} ); - } + ok( $x =~ /n/, qq{"next" matches /n/} ); is( index( $x, 'n' ), 0, qq{"next" contains "n" at pos 0} ); # The letter "t" is in both, but in different positions - TODO: { - local $TODO = $do_study ? 'not yet fixed' : 0; - ok( $x =~ /t/, qq{"next" matches /t/} ); - } - is( index( $x, 't' ), 3, qq{"next" contains "t" at pos 3} ); + ok( $x =~ /t/, qq{"next" matches /x/} ); + is( index( $x, 't' ), 3, qq{"next" contains "x" at pos 3} ); } |