6 BEGIN { delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE} }
8 use Test::Leaner tests => 2;
13 $n = 1 unless defined $n;
14 $l = 45 unless defined $l;
16 return \(\$n) if $l <= 0;
21 { a => create_chain($l - 1, $n + 1) },
25 my $c1 = create_chain;
26 my $c2 = create_chain;
28 is_deeply $c1, $c2, 'a deep chain structure';
33 $n = 1 unless defined $n;
34 $l = 10 unless defined $l;
36 return \(\$n) if $l <= 0;
39 { a => create_tree($l - 1, 2 * $n) },
41 { b => create_tree($l - 1, 2 * $n + 1) },
48 is_deeply $t1, $t2, 'a deep tree structure';