diff options
Diffstat (limited to 'Perl/t/find.t')
-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"); |