diff options
| -rw-r--r-- | Perl/t/Bbox.t | 42 |
1 files changed, 39 insertions, 3 deletions
diff --git a/Perl/t/Bbox.t b/Perl/t/Bbox.t index 238da00..b6f5419 100644 --- a/Perl/t/Bbox.t +++ b/Perl/t/Bbox.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: Bbox.t,v 1.2 2004-05-24 19:55:03 mertz Exp $ +# $Id: Bbox.t,v 1.3 2004-05-26 20:32:45 mertz Exp $ # Author: Christophe Mertz # @@ -9,7 +9,7 @@ BEGIN { if (!eval q{ - use Test::More tests => 5; + use Test::More tests => 8; 1; }) { print "# tests only work properly with installed Test::More module\n"; @@ -66,7 +66,7 @@ ok(&similarFlatArray ([$zinc->bbox($txt1)], "bbox of empty text"); my $width = $zinc->fontMeasure('font20pixels', 'dummy'); -print "width = $width\n"; +#print "width = $width\n"; my $txt2 = $zinc->add('text', 1, -font => 'font20pixels', -alignment => 'left', @@ -110,6 +110,42 @@ ok(&similarFlatArray ([$zinc->bbox($txt4)], "bbox of 'dummy' centered text"); +### testing bbox of fields or labels of track/waypoint and tabular items +my $track = $zinc->add('track', 1, 4, -position => [56, 78]); +print "bbox=(", join(',', $zinc->bbox(-label, $track)),")\n"; +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) ], + [ ], + "bbox of a track field without labelformat"); + +$zinc->itemconfigure($track, -labelformat => 'x20x18+0+0'); +#print "bbox=(", join(',', $zinc->bbox(-label, $track)),")\n"; + + +#print "bbox=(", join(',', $zinc->bbox(-field, 4, $track)),")\n"; +is_deeply ([ $zinc->bbox(-field, 4, $track) ], + [ ], + "bbox of a empty track field"); + + +# my $wpt = $zinc->add('waypoint', 1, 0, -position => [561, 781]); +# is_deeply([ $zinc->coords($wpt) ], +# [ 561,781 ], +# "coords of a waypoint"); +# my $tab = $zinc->add('tabular', 1, 1, -position => [61, 81]); +# is_deeply([ $zinc->coords($tab) ], +# [ 61,81 ], +# "coords of a empty tabular"); +# $zinc->itemconfigure($tab, -labelformat => 'x20x18+0+0'); +# is_deeply([ $zinc->coords($tab) ], +# [ 61,81 ], +# "coords of a tabular with a labelformat"); + + sub similarPoints { |