Enlightenment CVS committal
Author : leviathan
Project : e17
Module : libs/etk-perl
Dir : e17/libs/etk-perl/t/Etk
Modified Files:
Slider.t
Log Message:
Add slider functions
===================================================================
RCS file: /cvs/e/e17/libs/etk-perl/t/Etk/Slider.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Slider.t 10 Sep 2006 08:10:57 -0000 1.1
+++ Slider.t 22 Feb 2007 15:59:49 -0000 1.2
@@ -1,8 +1,17 @@
-use Test::More tests => 2;
+use Test::More tests => 5;
use Etk;
my $b = Etk::HSlider->new(0, 1, 0, 0.1, 0.5);
ok( defined $b, "HSlider new()");
ok( $b->isa("Etk::HSlider"), "Class Check");
+
+$b->LabelSet("moo");
+is($b->LabelGet(), "moo", "Label Set/Get");
+
+$b->InvertedSet(1);
+is($b->InvertedGet(), 1, "Inverted Set/Get");
+
+$b->UpdatePolicySet(2);
+is($b->UpdatePolicyGet(), 2, "UpdatePolicy Set/Get");
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
