@@ -, +, @@ --------- -- fails -- succeeds --- t/db_dependent/Suggestions.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) --- a/t/db_dependent/Suggestions.t +++ a/t/db_dependent/Suggestions.t @@ -18,6 +18,7 @@ use Modern::Perl; use t::lib::Mocks; +use t::lib::TestBuilder; use C4::Context; use C4::Members; use C4::Letters; @@ -35,6 +36,7 @@ BEGIN { use_ok('C4::Suggestions'); } +my $builder = t::lib::TestBuilder->new(); my $dbh = C4::Context->dbh; my $sql; @@ -87,7 +89,11 @@ my $member = { categorycode => 'S', branchcode => 'CPL', }; -my $borrowernumber = AddMember(%$member); +my $patron = $builder->build({ + source => 'Borrower', + value => $member, +}); +my $borrowernumber = $patron->{borrowernumber}; my $biblionumber1 = 1; my $my_suggestion = { --