generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-05-02 07:31:38 +02:00
Code Issues Projects Releases Wiki Activity

perl: more tests for nil/true/false entities

Browse Source
This commit is contained in:
gfx 2010-09-19 15:53:54 +09:00
parent a1c4d8696a
commit 6379d0fe0f
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
perl/t/07_break.t
View File

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