diff options
author | mertz | 2004-11-16 20:46:14 +0000 |
---|---|---|
committer | mertz | 2004-11-16 20:46:14 +0000 |
commit | 43e6583074814ec987f7bea6ea10bd89bc82c2fd (patch) | |
tree | 12b56634604d7112f48afd1dbf743c9ddcd71bf5 /Perl/t/Bbox.t | |
parent | 9f4e2c7bb267022948931aac9fb20e73f9f8282a (diff) | |
download | tkzinc-43e6583074814ec987f7bea6ea10bd89bc82c2fd.zip tkzinc-43e6583074814ec987f7bea6ea10bd89bc82c2fd.tar.gz tkzinc-43e6583074814ec987f7bea6ea10bd89bc82c2fd.tar.bz2 tkzinc-43e6583074814ec987f7bea6ea10bd89bc82c2fd.tar.xz |
modifying a test as from v3.30 the bbox of an empty text is ()
Diffstat (limited to 'Perl/t/Bbox.t')
-rw-r--r-- | Perl/t/Bbox.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Perl/t/Bbox.t b/Perl/t/Bbox.t index 226186b..5840fc3 100644 --- a/Perl/t/Bbox.t +++ b/Perl/t/Bbox.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: Bbox.t,v 1.6 2004-09-17 11:51:10 mertz Exp $ +# $Id: Bbox.t,v 1.7 2004-11-16 20:46:14 mertz Exp $ # Author: Christophe Mertz # @@ -59,9 +59,10 @@ my $txt1 = $zinc->add('text', 1, ); #print "bbox=(", join(',', $zinc->bbox($txt1)),")\n"; +# from v3.30 the bbox of an empty text is () ok(&similarFlatArray ([$zinc->bbox($txt1)], - [30,25, 30,25+$linespace], - [4, 4, 4, 4], + [], + [], ), "bbox of empty text"); |