diff options
Diffstat (limited to 'qpid/cpp/bindings/qpid/perl/t/Message.t')
-rw-r--r-- | qpid/cpp/bindings/qpid/perl/t/Message.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/qpid/cpp/bindings/qpid/perl/t/Message.t b/qpid/cpp/bindings/qpid/perl/t/Message.t index 15baafb446..c656a7cf90 100644 --- a/qpid/cpp/bindings/qpid/perl/t/Message.t +++ b/qpid/cpp/bindings/qpid/perl/t/Message.t @@ -265,6 +265,13 @@ $map = qpid::messaging::decode_map($message); ok ($map->{name} eq "Euro=\x{20AC}", "Unicode strings encoded correctly."); +# Maps inside maps should work +$content = { id => 1234, name => { first => "tom" } }; +qpid::messaging::encode($content, $message); +$map = qpid::messaging::decode_map($message); +ok ($map->{name}{first} eq "tom", + "Map inside map encoded correctly."); + # Setting the content as a hash automatically encodes it ($content) = {"id" => "1234", "name" => "qpid"}; $message->set_content($content); |