diff options
| author | lecoanet | 2004-09-09 07:52:44 +0000 |
|---|---|---|
| committer | lecoanet | 2004-09-09 07:52:44 +0000 |
| commit | 9dcb8bd27d44f6a5223bf5be10d31ce97dc313dc (patch) | |
| tree | d9c3282dc9b215e6b7ce1b049c8820290c0bf700 /Perl | |
| parent | f443b4d010c89fa3244c26bea4e30df494b34ba5 (diff) | |
| download | tkzinc-9dcb8bd27d44f6a5223bf5be10d31ce97dc313dc.zip tkzinc-9dcb8bd27d44f6a5223bf5be10d31ce97dc313dc.tar.gz tkzinc-9dcb8bd27d44f6a5223bf5be10d31ce97dc313dc.tar.bz2 tkzinc-9dcb8bd27d44f6a5223bf5be10d31ce97dc313dc.tar.xz | |
Suppressed warning messages about fixed bug.
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) ], |