diff options
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/t/Bbox.t | 8 |
1 files changed, 1 insertions, 7 deletions
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) ], |