From b991c2440fc2ce0f339e89f22e71652d5262d713 Mon Sep 17 00:00:00 2001
From: Chris Fields <cjfields@bioperl.org>
Date: Mon, 17 May 2010 13:21:54 -0500
Subject: [PATCH] bug in FeatureIO, TODO demonstrates the problem

---
 t/SeqFeature/FeatureIO.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/t/SeqFeature/FeatureIO.t b/t/SeqFeature/FeatureIO.t
index a84d8d8eb..f1444820d 100644
--- a/t/SeqFeature/FeatureIO.t
+++ b/t/SeqFeature/FeatureIO.t
@@ -7,7 +7,7 @@ BEGIN {
     use lib '.';
     use Bio::Root::Test;
 
-    test_begin(-tests => 42,
+    test_begin(-tests => 43,
 	       -requires_module => 'Graph');
 
     use_ok('Bio::FeatureIO');
@@ -38,6 +38,12 @@ is($fcount, 0);
 #then try to read sequences again.  should get seqs now
 while($s = $io->next_seq()){
     $scount++;
+    TODO: {
+	local $TODO = 'How did this ever work?!?';
+	if ($scount == 1) {
+	    is($s->seq, 'Test1');
+	}
+    }
 }
 is($scount,  1);
 
-- 
2.11.4.GIT