diff options
| author | mertz | 2004-05-12 08:57:33 +0000 |
|---|---|---|
| committer | mertz | 2004-05-12 08:57:33 +0000 |
| commit | 2aaadb4c1860d5b90fb39608a40a5c6bfcfa77c7 (patch) | |
| tree | 48fba3445d394cb9940eddf43a825c0260cf67c3 /Perl/t | |
| parent | 8a32f219420eaffd42f17661c97cb76f075663d6 (diff) | |
| download | tkzinc-2aaadb4c1860d5b90fb39608a40a5c6bfcfa77c7.zip tkzinc-2aaadb4c1860d5b90fb39608a40a5c6bfcfa77c7.tar.gz tkzinc-2aaadb4c1860d5b90fb39608a40a5c6bfcfa77c7.tar.bz2 tkzinc-2aaadb4c1860d5b90fb39608a40a5c6bfcfa77c7.tar.xz | |
coords of tabular is now again a flat list of x and y
Diffstat (limited to 'Perl/t')
| -rw-r--r-- | Perl/t/Coords.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Perl/t/Coords.t b/Perl/t/Coords.t index d1ea3ae..59cef9f 100644 --- a/Perl/t/Coords.t +++ b/Perl/t/Coords.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: Coords.t,v 1.4 2004-05-07 13:51:27 mertz Exp $ +# $Id: Coords.t,v 1.5 2004-05-12 08:57:33 mertz Exp $ # Author: Christophe Mertz # @@ -122,11 +122,11 @@ is_deeply([ $zinc->coords($wpt) ], my $tab = $zinc->add('tabular', 1, 1, -position => [61, 81]); is_deeply([ $zinc->coords($tab) ], - [ [61,81] ], + [ 61,81 ], "coords of a empty tabular"); $zinc->itemconfigure($tab, -labelformat => 'x20x18+0+0'); is_deeply([ $zinc->coords($tab) ], - [ [61,81] ], + [ 61,81 ], "coords of a tabular with a labelformat"); |