6 use Test
::More tests
=> 15;
9 use Data
::Peek
qw( DGrow DDump );
12 is
(length ($x), 0, "Initial length = 0");
16 ok
(my $l = DGrow
($x, $len), "Set to $len");
17 is
(length ($x), 0, "Variable content");
18 ok
($l >= $len, "returned LEN >= $len");
20 ok
($l <= $limit, "returned LEN <= $limit");
22 ok
($dd{LEN
} >= $len, "LEN in variable >= $len");
23 ok
($dd{LEN
} <= $limit, "LEN in variable <= limit");
24 ok
($l = DGrow
(\
$x, $limit), "Set to $limit");
25 ok
($l >= $limit, "LEN in variable >= $limit");
26 ($len, $limit) = ($limit, 4 * $limit);
27 ok
($l <= $limit, "LEN in variable <= $limit");
29 ok
($dd{LEN
} >= $len, "LEN in variable >= $len");
30 ok
($dd{LEN
} <= $limit, "LEN in variable <= $limit");
31 is
(DGrow
($x, 20), $l, "Don't shrink");