@@ -, +, @@ --- t/db_dependent/TestBuilder.t | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) --- a/t/db_dependent/TestBuilder.t +++ a/t/db_dependent/TestBuilder.t @@ -19,7 +19,8 @@ use Modern::Perl; -use Test::More tests => 42; +use Test::More tests => 44; +use Test::Warn; use Koha::Database; @@ -280,6 +281,23 @@ subtest 'Auto-increment values tests' => sub { }; +# Test to make sure build() warns user of unknown parameters. +warnings_are { + $builder->build({ + source => 'Branch', + values => { + branchcode => 'BRANCH_1' + } + }) +} [], "No warnings on correct use"; + +warnings_like { + $builder->build({ + source => 'Branch', + branchcode => 'BRANCH_2' # This is wrong! + }) +} qr/unknown param/i, "Carp unknown parameters"; + $schema->storage->txn_rollback; 1; --