diff options
Diffstat (limited to 'Perl/t/Coords.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"); |