[libnet-dbus-perl] 244/335: Added tests for dict/array use with iterators

[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 4d5f99074a4d7c5db16ac5b068b247077a31e5d8
Author: Daniel P. Berrange <berrange at redhat.com>
Date:   Thu Jul 12 10:41:00 2007 -0400

    Added tests for dict/array use with iterators
---
 t/15-message.t | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/t/15-message.t b/t/15-message.t
index d8c5b7b..fc9a8fa 100644
--- a/t/15-message.t
+++ b/t/15-message.t
@@ -1,5 +1,5 @@
 # -*- perl -*-
-use Test::More tests => 29;
+use Test::More tests => 33;
 
 use strict;
 use warnings;
@@ -31,6 +31,11 @@ $iter->append_uint64("12312312312123456");
 $iter->append_string("Hello world");
 $iter->append_double(1.424141);
 
+$iter->append_array(["one", "two", "three"], [&Net::DBus::Binding::Message::TYPE_STRING]);
+
+$iter->append_dict({ "one" => "foo", "two" => "bar"}, [&Net::DBus::Binding::Message::TYPE_STRING,
+						       &Net::DBus::Binding::Message::TYPE_STRING]);
+
 $iter = $msg->iterator();
 ok($iter->get_boolean() == 1, "boolean");
 ok($iter->next(), "next");
@@ -60,5 +65,12 @@ ok($iter->next(), "next");
 ok($iter->get_string() eq "Hello world", "string");
 ok($iter->next(), "next");
 ok($iter->get_double() == 1.424141, "double");
+
+ok($iter->next(), "next");
+is_deeply($iter->get_array(&Net::DBus::Binding::Message::TYPE_STRING), ["one", "two", "three"], "array");
+
+ok($iter->next(), "next");
+is_deeply($iter->get_dict(), {"one" => "foo", "two" => "bar"}, "dict");
+
 ok(!$iter->next(), "next");
 

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