From b39a4ddd8db37a85ce56ec8eaff59fc38d26f33e Mon Sep 17 00:00:00 2001 From: Alexis Ripetti Date: Wed, 16 Dec 2020 12:09:14 -0500 Subject: [PATCH] Bug 12532 - Correction of tests involving guarantorid --- t/db_dependent/Members.t | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Members.t b/t/db_dependent/Members.t index a4dd0d507a..5a23ae2ee5 100755 --- a/t/db_dependent/Members.t +++ b/t/db_dependent/Members.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 50; +use Test::More tests => 52; use Test::MockModule; use Test::Exception; @@ -134,8 +134,19 @@ my $GUARANTOR_EMAIL = "Robert\@email.com"; email => $GUARANTOR_EMAIL ); -$member->{guarantorid} = Koha::Patron->new(\%data)->store->borrowernumber; -$patron->set($member)->store; +$addmem=Koha::Patron->new(\%data)->store->borrowernumber; +ok($addmem, "Koha::Patron->store()"); + +my $patron_guarantor = Koha::Patrons->find( { cardnumber => (\%data)->{'cardnumber'} } ) + or BAIL_OUT("Cannot read member with card (\%data)->{'cardnumber'}"); +my $member_guarantor = $patron_guarantor->unblessed; + +my %data2 = ( + guarantor_id => $member_guarantor->{borrowernumber}, + guarantee_id => $member->{borrowernumber}, + relationship => "father" +); +Koha::Patron::Relationship->new(\%data2)->store; $member = Koha::Patrons->find( { cardnumber => $CARDNUMBER } ); t::lib::Mocks::mock_preference( 'RedirectGuaranteeEmail', '0' ); -- 2.25.1