[libnet-dbus-perl] 244/335: Added tests for dict/array use with iterators
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:08:05 UTC 2015
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
More information about the Pkg-perl-cvs-commits
mailing list