diff options
| author | Darryl L. Pierce <mcpierce@apache.org> | 2013-03-18 19:15:17 +0000 |
|---|---|---|
| committer | Darryl L. Pierce <mcpierce@apache.org> | 2013-03-18 19:15:17 +0000 |
| commit | 84c34805896806982d1d2c232fd197b17b0d909a (patch) | |
| tree | 48bec9865111aedbae79f22f8b2a738493decb0b /qpid/cpp/bindings | |
| parent | a1a2ba2cf8663e3b4cade0e5f439e03f1e5da76b (diff) | |
| download | qpid-python-84c34805896806982d1d2c232fd197b17b0d909a.tar.gz | |
QPID-4493: Fixes memory leak in Perl bindings.
Contributed by: Jimmy Jones <jimmyjones2@gmx.co.uk>
git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk@1457923 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'qpid/cpp/bindings')
| -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); |