@@ -, +, @@ Out of range value for column 'tax_rate_on_receiving' Out of range value for column 'discount' use t::lib::TestBuilder; my $builder = t::lib::TestBuilder->new; $builder->build( { source => 'Aqorder', value => { discount => 100 } } )->{discount}; use Modern::Perl; use t::lib::TestBuilder; my $builder = t::lib::TestBuilder->new; my ( $real, $i ) = ( 0, 0 ); while ( $real < 100 ) { $real = $builder->_gen_real( { info => { size => [ 6, 4 ] } } ); warn $i++; } warn "$i - $real"; --- t/lib/TestBuilder.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/t/lib/TestBuilder.pm +++ a/t/lib/TestBuilder.pm @@ -417,7 +417,7 @@ sub _gen_real { if( defined( $params->{info}->{size} ) ) { $max = 10 ** ($params->{info}->{size}->[0] - $params->{info}->{size}->[1]); } - return sprintf("%.2f", rand($max)+1); + return sprintf("%.2f", rand($max-0.1)); } sub _gen_date { --