adding temporary traces for easing debug...

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");