File: 08_cycle.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 (28 lines) | stat: -rw-r--r-- 486 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
24
25
26
27
28
 
use t::Util;
use Test::More;
use Data::MessagePack;

plan tests => 6;

my $aref = [0];
$aref->[1] = $aref;
eval { Data::MessagePack->pack($aref) };
ok $@, $@;

my $href = {};
$href->{cycle} = $href;
eval { Data::MessagePack->pack($aref) };
ok $@, $@;

$aref = [0,[1,2]];
eval { Data::MessagePack->pack($aref) };
ok !$@;

eval { Data::MessagePack->pack($aref, 3) };
ok !$@;

eval { Data::MessagePack->pack($aref, 2) };
ok $@, $@;

eval { Data::MessagePack->pack($aref, -1) };
ok $@, $@;