Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/t/Etk
Modified Files:
Image.t
Log Message:
Image API change
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Image.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Image.t 4 Aug 2006 14:50:37 -0000 1.1
+++ Image.t 30 Dec 2006 09:18:23 -0000 1.2
@@ -6,11 +6,14 @@
ok( defined $b, "Image new()");
ok( $b->isa("Etk::Image"), "Class Check");
-$b->SetFromFile("/dev/null");
-is($b->FileGet(), "/dev/null", "File set/get");
+$b->SetFromFile("/dev/null","key");
+is($b->FileGet(), "key", "File set/get");
$b->KeepAspectSet(1);
is($b->KeepAspectGet(), 1, "Keep Aspect");
+
+$b->AspectRatioSet(0.3);
+is($b->AspectRatioGet(), 0.3, "Aspect Ratio");
my $image2 = Etk::Image->new();
$image2->Copy($b);
-------------------------------------------------------------------------
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
