diff --git a/t/lib/TestBuilder.pm b/t/lib/TestBuilder.pm index 2df9f0401e..45df23e62d 100644 --- a/t/lib/TestBuilder.pm +++ b/t/lib/TestBuilder.pm @@ -89,6 +89,9 @@ sub build { my $source = $params->{source} || return; my $value = $params->{value}; + 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,