generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-20 14:02:40 +02:00
Code Issues Projects Releases Wiki Activity

fixed segv on cyclic reference(patch by dankogai)

Browse Source
This commit is contained in:
tokuhirom
2010-08-21 16:02:23 +09:00
parent c8e351b31e
commit a91c1ec6d9
2 changed files with 42 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
perl/t/08_cycle.t Normal file
View File

@@ -0,0 +1,25 @@
use t::Util;
use Test::More;
use Data::MessagePack;
plan tests => 5;
my $aref = [0];
$aref->[1] = $aref;
eval { Data::MessagePack->pack($aref) };
ok $@, $@;
my $href = {};
$href->{cycle} = $href;
eval { Data::MessagePack->pack($aref) };
ok $@, $@;
$aref = [0,[1,2]];
eval { Data::MessagePack->pack($aref) };
ok !$@;
eval { Data::MessagePack->pack($aref, 3) };
ok !$@;
eval { Data::MessagePack->pack($aref, 2) };
ok $@, $@;