Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/t/Etk
Modified Files:
CheckButton.t Colorpicker.t Container.t Dialog.t Entry.t
Filechooser.t Frame.t
Log Message:
fix up more tests
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/CheckButton.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- CheckButton.t 30 Jul 2006 19:22:33 -0000 1.1
+++ CheckButton.t 6 Sep 2006 19:49:43 -0000 1.2
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 2;
use Etk;
my $b = Etk::CheckButton->new();
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Colorpicker.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Colorpicker.t 30 Jul 2006 19:22:33 -0000 1.1
+++ Colorpicker.t 6 Sep 2006 19:49:43 -0000 1.2
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 4;
use Etk;
my $b = Etk::Colorpicker->new();
@@ -10,7 +10,7 @@
is($b->CurrentColorGet()->{r}, 10, "Color set and get");
-$b->ModeSet(1); # FIXME (constants)
+$b->ModeSet(1);
is($b->ModeGet(), 1, "Mode set and get");
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Container.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Container.t 4 Aug 2006 14:50:37 -0000 1.2
+++ Container.t 6 Sep 2006 19:49:43 -0000 1.3
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 5;
use Etk;
my $b = Etk::Window->new();
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Dialog.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Dialog.t 4 Aug 2006 14:50:37 -0000 1.1
+++ Dialog.t 6 Sep 2006 19:49:43 -0000 1.2
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 4;
use Etk;
my $b = Etk::Dialog->new();
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Entry.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- Entry.t 4 Sep 2006 19:39:26 -0000 1.3
+++ Entry.t 6 Sep 2006 19:49:43 -0000 1.4
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 4;
use Etk;
my $b = Etk::Entry->new();
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Filechooser.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Filechooser.t 6 Aug 2006 14:56:14 -0000 1.2
+++ Filechooser.t 6 Sep 2006 19:49:43 -0000 1.3
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 4;
use Etk;
my $b = Etk::Filechooser->new();
@@ -6,11 +6,8 @@
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");
+
+$b->CurrentFolderSet("/");
+is($b->CurrentFolderGet(), "/", "CurrentFolder Set/Get");
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Frame.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Frame.t 4 Aug 2006 14:50:37 -0000 1.1
+++ Frame.t 6 Sep 2006 19:49:43 -0000 1.2
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 4;
use Etk;
my $b = Etk::Frame->new("frame");
-------------------------------------------------------------------------
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
