mirror of
https://github.com/msgpack/msgpack-python.git
synced 2026-02-06 17:59:52 +00:00
Perl: added test case
This commit is contained in:
parent
2b8f853b96
commit
9420436c09
1 changed files with 12 additions and 0 deletions
12
perl/t/07_break.t
Normal file
12
perl/t/07_break.t
Normal 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;
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue