Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/t/Etk
Modified Files:
Button.t
Log Message:
follow Etk_Button changes + tests
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Button.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Button.t 30 Jul 2006 19:22:33 -0000 1.1
+++ Button.t 6 Sep 2006 19:37:34 -0000 1.2
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 7;
use Etk;
my $b = Etk::Button->new();
@@ -24,4 +24,6 @@
is($xalign, 1, "Xalign");
is($yalign, 0.5, "Yalign");
+$b->StyleSet(1);
+is ($b->StyleGet(), 1, "Style set/get");
-------------------------------------------------------------------------
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
