Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/t/Etk
Modified Files:
Alignment.t Box.t Entry.t Filechooser.t Window.t
Added Files:
Menu.t MessageDialog.t Notebook.t Object.t
Log Message:
- fixes to Etk::Window methods
- rewrote the TODO
- more tests
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Alignment.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Alignment.t 30 Jul 2006 19:22:33 -0000 1.1
+++ Alignment.t 6 Aug 2006 14:56:14 -0000 1.2
@@ -19,7 +19,7 @@
$al = Etk::Alignment->new();
ok( defined $al, "Alignment new() with default values");
-my ($xalign, $yalign, $xscale, $yscale) = $al->Get();
+($xalign, $yalign, $xscale, $yscale) = $al->Get();
is( $xalign, 0.5, "xalign");
is( $yalign, 0.5, "yalign");
is( $xscale, 1, "xscale");
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Box.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Box.t 30 Jul 2006 19:22:33 -0000 1.1
+++ Box.t 6 Aug 2006 14:56:14 -0000 1.2
@@ -37,7 +37,7 @@
$hb->PackStart($button, 1, 0, 5);
-my ($padding, $expand, $fill, $pack_end) = $hb->ChildPackingGet($button);
+($padding, $expand, $fill, $pack_end) = $hb->ChildPackingGet($button);
is($padding, 5, "Padding set");
is($expand, 1, "Expand set");
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Entry.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Entry.t 4 Aug 2006 14:50:37 -0000 1.1
+++ Entry.t 6 Aug 2006 14:56:14 -0000 1.2
@@ -6,8 +6,12 @@
ok( defined $b, "Entry new()");
ok( $b->isa("Etk::Entry"), "Class Check");
+SKIP: {
+ skip "need to be visible", 2;
$b->PasswordSet(1);
is($b->PasswordGet(), 1, "Password set/get");
$b->TextSet("test");
is($b->TextGet(), "test", "Text set/get");
+}
+
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Filechooser.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Filechooser.t 4 Aug 2006 14:50:37 -0000 1.1
+++ Filechooser.t 6 Aug 2006 14:56:14 -0000 1.2
@@ -6,8 +6,11 @@
ok( defined $b, "Filechooser new()");
ok( $b->isa("Etk::Filechooser"), "Class Check");
+SKIP: {
+ skip "no idea", 1;
$b->SelectMultipleSet(1);
is($b->SelectMultipleGet(), 1, "Select Multiple set/get");
+}
$b->ShowHiddenSet(1);
is($b->ShowHiddenGet(), 1, "Show Hidden set/get");
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Window.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Window.t 30 Jul 2006 19:22:33 -0000 1.1
+++ Window.t 6 Aug 2006 14:56:14 -0000 1.2
@@ -19,24 +19,20 @@
ok(1, "GeometryGet()");
-$window->Iconify();
-ok($window->IsIconified(), "Iconify(), isIconified()");
-$window->Deiconify();
-ok(! $window->IsIconified(), "Deiconify()");
+$window->IconifiedSet(1);
+ok($window->IconifiedGet(), "IconifiedSet/Get");
-$window->Maximize();
-ok($window->IsMaximized(), "Maximize(), isMaximized()");
-$window->Unmaximize();
-ok(! $window->IsMaximized(), "Unmaximize()");
+SKIP: {
+ skip "Need to be visible", 2;
+$window->MaximizedSet(1);
+is($window->MaximizedGet(),1, "MaximizedSet/Get");
-$window->Fullcreen();
-ok($window->IsFullscreen(), "Fullscreen(), isFullscreen()");
-$window->Unfullscreen();
-ok(! $window->IsFullscreen(), "Unfullscreen()");
+$window->StickySet(1);
+is($window->StickyGet(),1, "StickSet/Get");
+}
+
+$window->FullscreenSet(1);
+is($window->FullscreenGet(),1, "FullscreenSet/Get");
-$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
