From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 22 Feb 2006 22:09:41 +0000 (+0000)
Subject: Mark some new study tests as TODO
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=db95ebb4c2fb7673862097bfdbfe3b9bb6d28ea5;p=p5sagit%2Fp5-mst-13.2.git

Mark some new study tests as TODO

p4raw-id: //depot/perl@27272
---

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} );
 }