~ubuntu-branches/ubuntu/wily/libsereal-encoder-perl/wily-proposed

« back to all changes in this revision

Viewing changes to t/160_recursion.t

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

t/160_recursion.t

 

1

#!perl

 

2

use strict;

 

3

use warnings;

 

4

use Sereal::Encoder qw(encode_sereal);

 

5

use File::Spec;

 

6

 

 

7

use lib File::Spec->catdir(qw(t lib));

 

8

BEGIN {

 

9

    lib->import('lib')

 

10

        if !-d 't';

 

11

}

 

12

 

 

13

use Test::More;

 

14

 

 

15

my $recur_depth = 1000;

 

16

my $ref = [];

 

17

my $pos = $ref;

 

18

$pos = $pos->[0] = [] for 1..$recur_depth-1;

 

19

 

 

20

my $out = encode_sereal($ref, {max_recursion_depth => $recur_depth+1});

 

21

pass("alive");

 

22

my $no_exception = eval {

 

23

    $out = encode_sereal($ref, {max_recursion_depth => $recur_depth-1});

 

24

    1

 

25

};

 

26

ok(!$no_exception);

 

27

 

 

28

done_testing();

 

29

note("All done folks!");

 

30

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1