[libnet-dbus-perl] 92/335: Fix introspector tests

[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 71fade1c8b0d7b559f91eaf6b8b37b265d0115e2
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Fri Sep 2 13:07:13 2005 +0000

    Fix introspector tests
---
 lib/Net/DBus/Binding/Introspector.pm |  2 +-
 t/40-introspector.t                  | 12 ++++++------
 t/50-object-introspect.t             |  2 +-
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lib/Net/DBus/Binding/Introspector.pm b/lib/Net/DBus/Binding/Introspector.pm
index 4651788..47ce55d 100644
--- a/lib/Net/DBus/Binding/Introspector.pm
+++ b/lib/Net/DBus/Binding/Introspector.pm
@@ -416,7 +416,7 @@ sub to_xml {
     }
 
     foreach my $child (@{$self->{children}}) {
-	if (ref($child) eq "Net::DBus::Introspector") {
+	if (ref($child) eq __PACKAGE__) {
 	    $xml .= $child->to_xml($indent . "  ");
 	} else {
 	    $xml .= $indent . '  <node name="' . $child . '"/>' . "\n";
diff --git a/t/40-introspector.t b/t/40-introspector.t
index a397da0..5ec1c8b 100644
--- a/t/40-introspector.t
+++ b/t/40-introspector.t
@@ -5,12 +5,12 @@ use strict;
 use warnings;
 
 BEGIN { 
-        use_ok('Net::DBus::Introspector');
+        use_ok('Net::DBus::Binding::Introspector');
 	};
 
 
 TEST_ONE: {
-    my $other_object = Net::DBus::Introspector->new(
+    my $other_object = Net::DBus::Binding::Introspector->new(
 						    object_path => "org.example.Object.OtherObject",
 						    interfaces => {
 							"org.example.SomeInterface" => {
@@ -30,7 +30,7 @@ TEST_ONE: {
 							}
 						    });
 
-    isa_ok($other_object, "Net::DBus::Introspector");
+    isa_ok($other_object, "Net::DBus::Binding::Introspector");
     
     my $other_xml_got = $other_object->format();
     
@@ -59,7 +59,7 @@ TEST_ONE: {
 EOF
     is($other_xml_got, $other_xml_expect, "xml data matches");
 
-    my $object = Net::DBus::Introspector->new(
+    my $object = Net::DBus::Binding::Introspector->new(
 					      object_path => "org.example.Object",
 					      interfaces => {
 						  "org.example.SomeInterface" => {
@@ -91,7 +91,7 @@ EOF
 							   $other_object,
 							   ]);
     
-    isa_ok($object, "Net::DBus::Introspector");
+    isa_ok($object, "Net::DBus::Binding::Introspector");
 
     my $object_xml_got = $object->format();
     
@@ -147,7 +147,7 @@ EOF
     is($object_xml_got, $object_xml_expect, "xml data matches");
     
     
-    my $recon_other = Net::DBus::Introspector->new(xml => $object_xml_got);
+    my $recon_other = Net::DBus::Binding::Introspector->new(xml => $object_xml_got);
     
     my $object_xml_got_again = $recon_other->format();
     
diff --git a/t/50-object-introspect.t b/t/50-object-introspect.t
index 9ba48a7..0959edf 100644
--- a/t/50-object-introspect.t
+++ b/t/50-object-introspect.t
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 
 BEGIN { 
-    use_ok('Net::DBus::Introspector');
+    use_ok('Net::DBus::Binding::Introspector');
     use_ok('Net::DBus::Object');
 };
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git