Enlightenment CVS committal
Author : leviathan
Project : e17
Module : libs/etk-perl
Dir : e17/libs/etk-perl/t/Etk
Modified Files:
Box.t
Log Message:
Fix a test
===================================================================
RCS file: /cvs/e/e17/libs/etk-perl/t/Etk/Box.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -3 -r1.6 -r1.7
--- Box.t 29 Jun 2007 19:43:18 -0000 1.6
+++ Box.t 30 Sep 2007 11:23:31 -0000 1.7
@@ -10,8 +10,8 @@
$hb->SpacingSet(4);
is($hb->SpacingGet(), 4, "Spacing Set");
is($hb->HomogeneousGet(), 0, "Homo Get");
-$hb->HomogeneousSet(5);
-is($hb->HomogeneousGet(), 5, "Homo Set");
+$hb->HomogeneousSet(1);
+is($hb->HomogeneousGet(), 1, "Homo Set");
my $button = Etk::Button->new();
$hb->Append($button, 0, 0, 5);
@@ -44,8 +44,8 @@
$hb2->SpacingSet(4);
is($hb2->SpacingGet(), 4, "Spacing Set");
is($hb2->HomogeneousGet(), 0, "Homo Get");
-$hb2->HomogeneousSet(5);
-is($hb2->HomogeneousGet(), 5, "Homo Set");
+$hb2->HomogeneousSet(1);
+is($hb2->HomogeneousGet(), 1, "Homo Set");
my $button4 = Etk::Button->new();
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
