diff options
author | mertz | 2004-09-01 09:00:44 +0000 |
---|---|---|
committer | mertz | 2004-09-01 09:00:44 +0000 |
commit | 155df0d08126d2c9aeed2f76106e341ac6e8ac6e (patch) | |
tree | dfad60ef4009bd4158ad9ac53e2f5374a9f96ee5 /Perl | |
parent | 68c6677d32eccb922b1252bcae224e503d766f0e (diff) | |
download | tkzinc-155df0d08126d2c9aeed2f76106e341ac6e8ac6e.zip tkzinc-155df0d08126d2c9aeed2f76106e341ac6e8ac6e.tar.gz tkzinc-155df0d08126d2c9aeed2f76106e341ac6e8ac6e.tar.bz2 tkzinc-155df0d08126d2c9aeed2f76106e341ac6e8ac6e.tar.xz |
adding temporary traces for easing debug...
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/t/find.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Perl/t/find.t b/Perl/t/find.t index 053fbb5..b30be97 100644 --- a/Perl/t/find.t +++ b/Perl/t/find.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: find.t,v 1.3 2004-06-13 07:38:22 mertz Exp $ +# $Id: find.t,v 1.4 2004-09-01 09:00:44 mertz Exp $ # Author: Christophe Mertz # @@ -139,11 +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"; &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"; &ok (&eq_array (\@list , [ $g2 ]), "find overlapping when group becomes atomic, starting from group 1"); @@ -156,16 +158,19 @@ $zinc->itemconfigure($g2, -atomic => 1); ## testing enclosing find with atomic group @list = $zinc->find('enclosed', 0,0,200,200); +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"; &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"; &ok (&eq_array (\@list , [ $g2 ]), "find enclosed when group becomes atomic, recursively, starting from group 1"); |