Lines 188-195
sub _buildColumnValues {
Link Here
|
188 |
my @columns = $self->schema->source($source)->columns; |
188 |
my @columns = $self->schema->source($source)->columns; |
189 |
my %unique_constraints = $self->schema->source($source)->unique_constraints(); |
189 |
my %unique_constraints = $self->schema->source($source)->unique_constraints(); |
190 |
|
190 |
|
191 |
my $build_value = 3; |
191 |
my $build_value = 5; |
192 |
# we try max three times if there are unique constraints |
192 |
# we try max $build_value times if there are unique constraints |
193 |
BUILD_VALUE: while ( $build_value ) { |
193 |
BUILD_VALUE: while ( $build_value ) { |
194 |
# generate random values for all columns |
194 |
# generate random values for all columns |
195 |
for my $col_name( @columns ) { |
195 |
for my $col_name( @columns ) { |
Lines 442-448
sub _gen_text {
Link Here
|
442 |
$regex = '[A-Za-z]'; |
442 |
$regex = '[A-Za-z]'; |
443 |
} |
443 |
} |
444 |
my $random = String::Random->new( max => $size ); |
444 |
my $random = String::Random->new( max => $size ); |
445 |
return $random->randregex($regex); |
445 |
my $text = $random->randregex($regex); |
|
|
446 |
return $text; |
446 |
} |
447 |
} |
447 |
|
448 |
|
448 |
sub _gen_set_enum { |
449 |
sub _gen_set_enum { |
449 |
- |
|
|