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

Reply via email to