diff options
| author | mertz | 2004-05-07 13:51:27 +0000 |
|---|---|---|
| committer | mertz | 2004-05-07 13:51:27 +0000 |
| commit | d30cfd5294f8ec2a6e0b2ce94a4677b214427989 (patch) | |
| tree | 14bc9e6cd3c8442d156585a780415f13ef5d20cc /Perl/t | |
| parent | 9ee88985f3bf3155e816c1682eb667e025a2ea7c (diff) | |
| download | tkzinc-d30cfd5294f8ec2a6e0b2ce94a4677b214427989.zip tkzinc-d30cfd5294f8ec2a6e0b2ce94a4677b214427989.tar.gz tkzinc-d30cfd5294f8ec2a6e0b2ce94a4677b214427989.tar.bz2 tkzinc-d30cfd5294f8ec2a6e0b2ce94a4677b214427989.tar.xz | |
adding a trest for tabular with labelformat and non-empty fields
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) ], |