@@ -, +, @@ --- t/lib/TestBuilder.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) --- a/t/lib/TestBuilder.pm +++ a/t/lib/TestBuilder.pm @@ -489,11 +489,14 @@ sub _gen_int { sub _gen_real { my ($self, $params) = @_; my $max = 10 ** 38; + my $decimals = 2; if( defined( $params->{info}->{size} ) ) { $max = 10 ** ($params->{info}->{size}->[0] - $params->{info}->{size}->[1]); + $decimals = $params->{info}->{size}->[1]; } + $max = 10 ** 5 if $max > 10 ** 5; - return sprintf("%.2f", rand($max-0.1)); + return sprintf('%.'.$decimals.'f', rand($max-0.1)); } sub _gen_date { --