From 9dcb8bd27d44f6a5223bf5be10d31ce97dc313dc Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 9 Sep 2004 07:52:44 +0000
Subject: Suppressed warning messages about fixed bug.

---
 Perl/t/Bbox.t | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'Perl')

diff --git a/Perl/t/Bbox.t b/Perl/t/Bbox.t
index 9faaf28..dcb0e1a 100644
--- a/Perl/t/Bbox.t
+++ b/Perl/t/Bbox.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: Bbox.t,v 1.4 2004-09-01 08:57:32 mertz Exp $
+# $Id: Bbox.t,v 1.5 2004-09-09 07:52:44 lecoanet Exp $
 # Author: Christophe Mertz
 #
 
@@ -114,12 +114,9 @@ ok(&similarFlatArray ([$zinc->bbox($txt4)],
 my $track = $zinc->add('track', 1, 4, -position => [56, 78]);
 #print "bbox1=(", join(',', $zinc->bbox(-label, $track)),")\n";
 
-TODO: {
-  local $TODO = "bbox apparently still not correct in this case";
   is_deeply([ $zinc->bbox(-label, $track) ],
             [ ],
             "bbox of a track label without labelformat");
-}
 
 #print "bbox=(", join(',', $zinc->bbox(-field, 2, $track)),")\n";
 is_deeply ([ $zinc->bbox(-field, 2, $track) ],
@@ -150,13 +147,10 @@ is_deeply([ $zinc->bbox($tab) ],
 	  [ ],
 	  "bbox of a tabular without labelformat");
 
-TODO: {
-  local $TODO = "bbox apparently still not correct in this case";
 #print "tab bbox=(", join(',', $zinc->bbox(-label, $tab)),")\n";
 is_deeply([ $zinc->bbox(-label, $tab) ],
 	  [ ],
 	  "bbox of a tabular without labelformat");
-}
 
 #print "tab bbox=(", join(',', $zinc->bbox(-field, 0, $tab)),")\n";
 is_deeply([ $zinc->bbox(-field, 0, $tab) ],
-- 
cgit v1.1