diff options
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/t/Bbox.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Perl/t/Bbox.t b/Perl/t/Bbox.t index 4caa7c2..24498c2 100644 --- a/Perl/t/Bbox.t +++ b/Perl/t/Bbox.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: Bbox.t,v 1.8 2006-02-12 09:39:42 mertz Exp $ +# $Id: Bbox.t,v 1.9 2006-02-14 09:42:40 mertz Exp $ # Author: Christophe Mertz # @@ -134,10 +134,10 @@ is( $bbox, (), "bbox of a track field which field is out of bound is undef"); my $wpt = $zinc->add('waypoint', 1, 0, -position => [561, 781]); -print "wpt bbox=(", join(',', $zinc->bbox($wpt)),")\n"; +#print "wpt bbox=(", join(',', $zinc->bbox($wpt)),")\n"; ok(&similarFlatArray ([ $zinc->bbox($wpt) ], [ 561,781, 561,781], - [4,4, 4,4], + [5,5, 5,5], ), "coords of a waypoint without label"); |