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

Perl: added test case

Browse Source
This commit is contained in:
tokuhirom
2010-05-05 16:22:40 +09:00
parent 2b8f853b96
commit 9420436c09
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
perl/t/07_break.t Normal file
View File

@@ -0,0 +1,12 @@
use Test::More;
use Data::MessagePack;
use t::Util;
no warnings 'uninitialized'; # i need this. i need this.
plan tests => 1;
my $d = Data::MessagePack->unpack(Data::MessagePack->pack([{x => undef}]));
$d->[0]->{x} = 1;
ok delete $d->[0]->{x};
$d->[0] = 4;