[libnet-dbus-perl] 39/335: Updated tests to work with recent changes

[Intrigeri]

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 <dan at berrange.com>
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