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);
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
