diff options
Diffstat (limited to 'Perl/t')
| -rw-r--r-- | Perl/t/find.t | 40 |
1 files changed, 38 insertions, 2 deletions
diff --git a/Perl/t/find.t b/Perl/t/find.t index 396a5a8..053fbb5 100644 --- a/Perl/t/find.t +++ b/Perl/t/find.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: find.t,v 1.2 2004-04-02 12:01:49 mertz Exp $ +# $Id: find.t,v 1.3 2004-06-13 07:38:22 mertz Exp $ # Author: Christophe Mertz # @@ -14,7 +14,7 @@ BEGIN { if (!eval q{ # use Test::More qw(no_plan); - use Test::More tests => 16; + use Test::More tests => 22; 1; }) { print "# tests only work properly with installed Test::More module\n"; @@ -134,6 +134,42 @@ my @list; [ ($zinc->find('withtype', "rectangle")) ], "find with type 'rectangle' starting from .g1*"); + +## testing overlapping find with atomic group (for testig the bug +## reported by D. Etienne the 11th June 04 +$zinc->itemconfigure($g2, -atomic => 1); +@list = $zinc->find('overlapping', 20,20,110,110); +&ok (&eq_array (\@list , + [ $g2 ]), + "find overlapping when group becomes atomic, without specifying starting group"); + +@list = $zinc->find('overlapping', 20,20,110,110,1); +&ok (&eq_array (\@list , + [ $g2 ]), + "find overlapping when group becomes atomic, starting from group 1"); + +@list = $zinc->find('overlapping', 20,20,110,110,1,1); +&ok (&eq_array (\@list , + [ $g2 ]), + "find overlapping when group becomes atomic, recursively, starting from group 1"); + + +## testing enclosing find with atomic group +@list = $zinc->find('enclosed', 0,0,200,200); +&ok (&eq_array (\@list , + [ $g2 ]), + "find enclosed when group becomes atomic, without specifying starting group"); + +@list = $zinc->find('enclosed', 0,0,200,200, 1); +&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); +&ok (&eq_array (\@list , + [ $g2 ]), + "find enclosed when group becomes atomic, recursively, starting from group 1"); + # Tk::MainLoop; |