File: 07_break.t

package info (click to toggle)
libdata-messagepack-perl 1.02-3
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,060 kB
  • sloc: ansic: 5,697; perl: 1,123; makefile: 10
file content (23 lines) | stat: -rw-r--r-- 385 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use Test::More;
use Data::MessagePack;
use t::Util;

plan tests => 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];