diff options
Diffstat (limited to 'Perl/t')
-rw-r--r-- | Perl/t/Coords.t | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/Perl/t/Coords.t b/Perl/t/Coords.t index 74d7b90..d1ea3ae 100644 --- a/Perl/t/Coords.t +++ b/Perl/t/Coords.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: Coords.t,v 1.3 2004-04-24 16:00:45 mertz Exp $ +# $Id: Coords.t,v 1.4 2004-05-07 13:51:27 mertz Exp $ # Author: Christophe Mertz # @@ -120,10 +120,15 @@ is_deeply([ $zinc->coords($wpt) ], [ 561,781 ], "coords of a waypoint"); -my $tab = $zinc->add('tabular', 1, 0, -position => [61, 81]); +my $tab = $zinc->add('tabular', 1, 1, -position => [61, 81]); is_deeply([ $zinc->coords($tab) ], - [ 61,81 ], - "coords of a tabular"); + [ [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"); + my $arc = $zinc->add('arc', 1, [13,31, 42,24]); is_deeply([ $zinc->coords($arc) ], |