mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-03-19 13:02:13 +01:00
13 lines
260 B
Perl
13 lines
260 B
Perl
|
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;
|
||
|
|
|