From d30cfd5294f8ec2a6e0b2ce94a4677b214427989 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 7 May 2004 13:51:27 +0000
Subject: adding a trest for tabular with labelformat and non-empty fields

---
 Perl/t/Coords.t | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'Perl/t')

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) ],
-- 
cgit v1.1