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

(-)a/t/lib/TestBuilder.pm (-4 / +4 lines)
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
- 

Return to bug 19463