From: Enlightenment C. <no...@cv...> - 2006-09-06 19:22:53
|
Enlightenment CVS committal Author : leviathan Project : e17 Module : proto Dir : e17/proto/etk-perl/t/Etk Modified Files: Box.t Log Message: follow Etk_Box changes + finish its tests =================================================================== RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Box.t,v retrieving revision 1.3 retrieving revision 1.4 diff -u -3 -r1.3 -r1.4 --- Box.t 16 Aug 2006 20:21:56 -0000 1.3 +++ Box.t 6 Sep 2006 19:22:50 -0000 1.4 @@ -1,4 +1,4 @@ -use Test::More 'no_plan'; # tests => 1; +use Test::More tests => 20; use Etk; my $hb = Etk::HBox->new(0, 1); @@ -21,6 +21,20 @@ is($padding, 5, "Padding set"); is($fill, 0, "Fill set"); +my $button2 = Etk::Button->new(); +$hb->Append($button2, 0, 0, 5); +my ($group, $pos) = $hb->ChildPositionGet($button2); + +is($group, 0, "Position: group"); +is($pos, 1, "Position: pos"); + +$hb->ChildPositionSet($button2, 0, 0); +($group, $pos) = $hb->ChildPositionGet($button2); +is($pos, 0, "Position set"); + +my $button3 = $hb->ChildGetAt(0, 1); + +is ($button3->{ETK}, $button->{ETK}, "ChildGetAt"); $hb = Etk::VBox->new(0, 1); |