diff options
author | mertz | 2005-06-23 18:10:34 +0000 |
---|---|---|
committer | mertz | 2005-06-23 18:10:34 +0000 |
commit | 9bd22ef7c7e026339662fe4d44beee213c7803bb (patch) | |
tree | eba7956a84f3c6f1fbb8d2dc83882709ee83466d | |
parent | 2be444cc5f0e80da7ee0f2d75e0bbe6b838b90f6 (diff) | |
download | tkzinc-9bd22ef7c7e026339662fe4d44beee213c7803bb.zip tkzinc-9bd22ef7c7e026339662fe4d44beee213c7803bb.tar.gz tkzinc-9bd22ef7c7e026339662fe4d44beee213c7803bb.tar.bz2 tkzinc-9bd22ef7c7e026339662fe4d44beee213c7803bb.tar.xz |
removing unneeded print
-rw-r--r-- | Perl/t/find.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Perl/t/find.t b/Perl/t/find.t index b30be97..b8ebbe5 100644 --- a/Perl/t/find.t +++ b/Perl/t/find.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: find.t,v 1.4 2004-09-01 09:00:44 mertz Exp $ +# $Id: find.t,v 1.5 2005-06-23 18:10:34 mertz Exp $ # Author: Christophe Mertz # @@ -139,13 +139,13 @@ my @list; ## reported by D. Etienne the 11th June 04 $zinc->itemconfigure($g2, -atomic => 1); @list = $zinc->find('overlapping', 20,20,110,110); -print "overlapping17 (",join (',', @list),") \$g2=$g2\n"; +#print "overlapping17 (",join (',', @list),") \$g2=$g2\n"; &ok (&eq_array (\@list , [ $g2 ]), "find overlapping when group becomes atomic, without specifying starting group"); @list = $zinc->find('overlapping', 20,20,110,110,1); -print "overlapping18 (",join (',', @list),") \$g2=$g2\n"; +#print "overlapping18 (",join (',', @list),") \$g2=$g2\n"; &ok (&eq_array (\@list , [ $g2 ]), "find overlapping when group becomes atomic, starting from group 1"); @@ -158,19 +158,19 @@ print "overlapping18 (",join (',', @list),") \$g2=$g2\n"; ## testing enclosing find with atomic group @list = $zinc->find('enclosed', 0,0,200,200); -print "enclosing20 (",join (',', @list),") \$g2=$g2\n"; +#print "enclosing20 (",join (',', @list),") \$g2=$g2\n"; &ok (&eq_array (\@list , [ $g2 ]), "find enclosed when group becomes atomic, without specifying starting group"); @list = $zinc->find('enclosed', 0,0,200,200, 1); -print "enclosing21 (",join (',', @list),") \$g2=$g2\n"; +#print "enclosing21 (",join (',', @list),") \$g2=$g2\n"; &ok (&eq_array (\@list , [ $g2 ]), "find enclosed when group becomes atomic, starting from group 1"); @list = $zinc->find('enclosed', 0,2,200,200, 1,1); -print "enclosing22 (",join (',', @list),") \$g2=$g2\n"; +#print "enclosing22 (",join (',', @list),") \$g2=$g2\n"; &ok (&eq_array (\@list , [ $g2 ]), "find enclosed when group becomes atomic, recursively, starting from group 1"); |