Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/t/Etk
Modified Files:
Menu.t MessageDialog.t Notebook.t Object.t
Log Message:
more tests, and fix notification callbacks
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Menu.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Menu.t 6 Aug 2006 14:56:14 -0000 1.1
+++ Menu.t 9 Sep 2006 10:16:29 -0000 1.2
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 9;
use Etk;
my $hb = Etk::Menu->new();
@@ -17,4 +17,15 @@
$it->LabelSet("test");
is($it->LabelGet(), "test", "Label set/get");
+
+my $it2 = Etk::Menu::Item->new();
+$b->Append($it);
+$b->Append($it2);
+
+my @items = @{$b->ItemsGet()};
+
+is(@items, 2, "Items Get");
+
+is($items[1]->{ETK}, $it2->{ETK}, "Items ok");
+
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/MessageDialog.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- MessageDialog.t 6 Aug 2006 14:56:14 -0000 1.1
+++ MessageDialog.t 9 Sep 2006 10:16:29 -0000 1.2
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 8;
use Etk;
use Etk::Constants qw/:messagedialog/;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Notebook.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Notebook.t 6 Aug 2006 14:56:14 -0000 1.1
+++ Notebook.t 9 Sep 2006 10:16:29 -0000 1.2
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 11;
use Etk;
my $b = Etk::Notebook->new();
@@ -15,7 +15,6 @@
is($b->PageTabLabelGet(0), "moo", "PageTabLabelSet");
my $child = $b->PageChildGet(0);
-bless($child, "Etk::Button"); # TODO what do we do about these?
is($child->LabelGet(), "button", "PageChildGet");
is($b->PagePrepend("test", $child), 0, "PagePrepend");
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/t/Etk/Object.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Object.t 6 Aug 2006 14:56:14 -0000 1.1
+++ Object.t 9 Sep 2006 10:16:29 -0000 1.2
@@ -1,4 +1,4 @@
-use Test::More 'no_plan'; # tests => 1;
+use Test::More tests => 4;
use Etk;
my $b = Etk::Button->new();
@@ -9,4 +9,17 @@
$b->DataSet("moo", "test");
is($b->DataGet("moo"), "test", "Data set/get");
+
+my $var = "unset";
+
+$b->NotificationCallbackAdd("moo", sub {
+ my $self = shift;
+ my $property = shift;
+ my $data = shift;
+ $$data = "set";
+}, \$var);
+
+$b->Notify("moo");
+
+is($var, "set", "Notification and callback");
-------------------------------------------------------------------------
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
