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