From: Enlightenment C. <no...@cv...> - 2007-01-13 16:10:10
|
Enlightenment CVS committal Author : leviathan Project : e17 Module : libs/etk-perl Dir : e17/libs/etk-perl/t/Etk Modified Files: Entry.t Log Message: Add to the test =================================================================== RCS file: /cvs/e/e17/libs/etk-perl/t/Etk/Entry.t,v retrieving revision 1.4 retrieving revision 1.5 diff -u -3 -r1.4 -r1.5 --- Entry.t 6 Sep 2006 19:49:43 -0000 1.4 +++ Entry.t 13 Jan 2007 22:10:06 -0000 1.5 @@ -1,4 +1,4 @@ -use Test::More tests => 4; +use Test::More tests => 5; use Etk; my $b = Etk::Entry->new(); @@ -11,4 +11,8 @@ $b->TextSet("test"); is($b->TextGet(), "test", "Text set/get"); + +my $i = Etk::Image->new_from_file("/dev/null"); +$b->ImageSet(1, $i); +is($b->ImageGet(1)->{ETK}, $i->{ETK}, "Image set/get"); |