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

(-)a/t/lib/TestBuilder.pm (-2 / +4 lines)
Lines 3-9 package t::lib::TestBuilder; Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use Koha::Database;
4
use Koha::Database;
5
use String::Random;
5
use String::Random;
6
6
use Carp;
7
7
8
my $gen_type = {
8
my $gen_type = {
9
    tinyint   => \&_gen_int,
9
    tinyint   => \&_gen_int,
Lines 98-103 sub build { Link Here
98
    my $value   = $params->{value};
98
    my $value   = $params->{value};
99
    my $only_fk = $params->{only_fk} || 0;
99
    my $only_fk = $params->{only_fk} || 0;
100
100
101
    my @unknowns = grep( !/source|value|only_fk/, keys %{ $params });
102
    carp "Unknown parameter(s): ", join( ', ', @unknowns ) if scalar @unknowns;
103
101
    my $col_values = $self->_buildColumnValues({
104
    my $col_values = $self->_buildColumnValues({
102
        source  => $source,
105
        source  => $source,
103
        value   => $value,
106
        value   => $value,
104
- 

Return to bug 15339