Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/t
Modified Files:
Etk.t
Log Message:
Hear Hear!!! This is a re-write of Etk-Perl
+ Everything is now in the XS file
+ etk_test needs porting (only the Button test works now)
+ some tests in t/Etk/*.t
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Etk.t 17 Jul 2006 23:26:17 -0000 1.2
+++ Etk.t 30 Jul 2006 19:22:33 -0000 1.3
@@ -1,45 +0,0 @@
-use Test::More 'no_plan'; # tests => 1;
-use Etk;
-
-# testing Window here mainly
-
-my $window = Etk::Window->new("test");
-
-ok( defined $window, "Window new()");
-ok( $window->isa("Etk::Window"), "Class Check");
-
-ok( $window->TitleGet() eq "test", "TitleGet()");
-$window->TitleSet("test2");
-ok( $window->TitleGet() eq "test2", "TitleSet()");
-
-$window->Move(10, 10);
-$window->Resize(100, 100);
-
-my @geo = $window->GeometryGet();
-ok($geo[2] == 100 && $geo[3] == 100, "Resize()");
-ok($geo[0] == 10 && $geo[1] == 10, "Move()");
-
-ok(1, "GeometryGet()");
-
-
-$window->Iconify();
-ok($window->isIconified(), "Iconify(), isIconified()");
-$window->Deiconify();
-ok(! $window->isIconified(), "Deiconify()");
-
-$window->Maximize();
-ok($window->isMaximized(), "Maximize(), isMaximized()");
-$window->Unmaximize();
-ok(! $window->isMaximized(), "Unmaximize()");
-
-$window->Fullcreen();
-ok($window->isFullscreen(), "Fullscreen(), isFullscreen()");
-$window->Unfullscreen();
-ok(! $window->isFullscreen(), "Unfullscreen()");
-
-$window->Stick();
-ok($window->isSticky(), "Stick(), isSticky()");
-$window->Unstick();
-ok(! $window->isSticky(), "Unstick()");
-
-
-------------------------------------------------------------------------
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
