From: Enlightenment C. <no...@cv...> - 2006-07-17 18:26:20
|
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. |