View | Details | Raw Unified | Return to bug 27630
Collapse All | Expand All

(-)a/t/lib/TestBuilder.pm (-2 / +4 lines)
Lines 489-499 sub _gen_int { Link Here
489
sub _gen_real {
489
sub _gen_real {
490
    my ($self, $params) = @_;
490
    my ($self, $params) = @_;
491
    my $max = 10 ** 38;
491
    my $max = 10 ** 38;
492
    my $decimals = 2;
492
    if( defined( $params->{info}->{size} ) ) {
493
    if( defined( $params->{info}->{size} ) ) {
493
        $max = 10 ** ($params->{info}->{size}->[0] - $params->{info}->{size}->[1]);
494
        $max = 10 ** ($params->{info}->{size}->[0] - $params->{info}->{size}->[1]);
495
        $decimals = $params->{info}->{size}->[1];
494
    }
496
    }
497
495
    $max = 10 ** 5 if $max > 10 ** 5;
498
    $max = 10 ** 5 if $max > 10 ** 5;
496
    return sprintf("%.2f", rand($max-0.1));
499
    return sprintf('%.'.$decimals.'f', rand($max-0.1));
497
}
500
}
498
501
499
sub _gen_date {
502
sub _gen_date {
500
- 

Return to bug 27630