Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/t
Modified Files:
Etk.t
Log Message:
- todo--
- some more simplifactions and cleanups
- start of test suite
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Etk.t 7 Jun 2006 11:58:34 -0000 1.1
+++ Etk.t 17 Jul 2006 23:26:17 -0000 1.2
@@ -1,15 +1,45 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl Etk.t'
+use Test::More 'no_plan'; # tests => 1;
+use Etk;
-#########################
+# testing Window here mainly
-# change 'tests => 1' to 'tests => last_test_to_print';
+my $window = Etk::Window->new("test");
-use Test::More tests => 1;
-BEGIN { use_ok('Etk') };
+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()");
-# Insert your test code below, the Test::More module is use()ed here so read
-# its man page ( perldoc Test::More ) for help writing this test script.
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
