@@ -, +, @@ --- t/lib/TestBuilder.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) --- a/t/lib/TestBuilder.pm +++ a/t/lib/TestBuilder.pm @@ -3,7 +3,7 @@ package t::lib::TestBuilder; use Modern::Perl; use Koha::Database; use String::Random; - +use Carp; my $gen_type = { tinyint => \&_gen_int, @@ -98,6 +98,9 @@ sub build { my $value = $params->{value}; my $only_fk = $params->{only_fk} || 0; + my @unknowns = grep( !/source|value|only_fk/, keys %{ $params }); + carp "Unknown parameter(s): ", join( ', ', @unknowns ) if scalar @unknowns; + my $col_values = $self->_buildColumnValues({ source => $source, value => $value, --