From db95ebb4c2fb7673862097bfdbfe3b9bb6d28ea5 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 22 Feb 2006 22:09:41 +0000 Subject: [PATCH] Mark some new study tests as TODO p4raw-id: //depot/perl@27272 --- t/op/studytied.t | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/t/op/studytied.t b/t/op/studytied.t index d50c964..2a78c8c 100644 --- a/t/op/studytied.t +++ b/t/op/studytied.t @@ -41,10 +41,16 @@ 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/ - ok( $x =~ /n/, qq{"next" matches /n/} ); + TODO: { + local $TODO = $do_study ? 'not yet fixed' : 0; + 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 - ok( $x =~ /t/, qq{"next" matches /x/} ); - is( index( $x, 't' ), 3, qq{"next" contains "x" at pos 3} ); + 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} ); } -- 1.8.3.1