This is an automated email from the git hooks/post-receive script. intrigeri pushed a commit to branch experimental in repository libnet-dbus-perl.
commit 651d06bae68fcccabec4eb2c480485b66f06727b Author: Daniel P. Berrange <[email protected]> Date: Mon Feb 21 00:10:24 2005 +0000 Updated tests to work with recent changes --- t/00-constants.t | 9 +++++---- t/15-message.t | 3 ++- t/20-callback.t | 1 + t/25-reactor.t | 1 + t/30-server.t | 2 ++ 5 files changed, 11 insertions(+), 5 deletions(-) diff --git a/t/00-constants.t b/t/00-constants.t index 2baaa2e..1281710 100644 --- a/t/00-constants.t +++ b/t/00-constants.t @@ -1,3 +1,4 @@ +# -*- perl -*- use Test::More tests => 6; BEGIN { use_ok('Net::DBus::Binding::Watch'); @@ -8,7 +9,7 @@ BEGIN { my $fail = 0; foreach my $constname (qw( - SYSTEM SESSION ACTIVATION)) { + SYSTEM SESSION STARTER)) { next if (eval "my \$a = &Net::DBus::Binding::Bus::$constname; 1"); print "# fail: $@"; $fail = 1; @@ -18,9 +19,9 @@ ok( $fail == 0 , 'Net::DBus::Binding::Bus Constants' ); $fail = 0; foreach my $constname (qw( TYPE_ARRAY TYPE_BOOLEAN - TYPE_BYTE TYPE_CUSTOM TYPE_DICT - TYPE_DOUBLE TYPE_INT32 TYPE_INT64 - TYPE_INVALID TYPE_NIL TYPE_OBJECT_PATH + TYPE_BYTE TYPE_DOUBLE TYPE_STRUCT + TYPE_INT32 TYPE_INT64 TYPE_DICT_ENTRY + TYPE_INVALID TYPE_SIGNATURE TYPE_OBJECT_PATH TYPE_STRING TYPE_UINT32 TYPE_UINT64)) { next if (eval "my \$a = &Net::DBus::Binding::Message::$constname; 1"); print "# fail: $@"; diff --git a/t/15-message.t b/t/15-message.t index cd4d4d8..b058c1f 100644 --- a/t/15-message.t +++ b/t/15-message.t @@ -1,3 +1,4 @@ +# -*- perl -*- use Test::More tests => 21; BEGIN { use_ok('Net::DBus::Binding::Iterator'); @@ -12,7 +13,7 @@ my $msg = Net::DBus::Binding::Message::Signal->new(object_path => "/foo/bar/Wizz interface => "com.blah.Example", signal_name => "Eeek"); -my $iter = $msg->iterator(); +my $iter = $msg->iterator(1); $iter->append_boolean(1); $iter->append_byte(43); $iter->append_int32(123); diff --git a/t/20-callback.t b/t/20-callback.t index 5b0f7f3..0aad0d8 100644 --- a/t/20-callback.t +++ b/t/20-callback.t @@ -1,3 +1,4 @@ +# -*- perl -*- use Test::More tests => 5; BEGIN { diff --git a/t/25-reactor.t b/t/25-reactor.t index cb611ca..503fd61 100644 --- a/t/25-reactor.t +++ b/t/25-reactor.t @@ -1,3 +1,4 @@ +# -*- perl -*- use Test::More tests => 16; use POSIX qw(pipe read write); use strict; diff --git a/t/30-server.t b/t/30-server.t index d3c7c17..7622c58 100644 --- a/t/30-server.t +++ b/t/30-server.t @@ -1,4 +1,6 @@ +# -*- perl -*- use Test::More tests => 11; + BEGIN { use_ok('Net::DBus::Binding::Server'); use_ok('Net::DBus::Binding::Connection'); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
