From 55f944163102b669aa86fa823e82d1162acbfcf6 Mon Sep 17 00:00:00 2001 From: Fridolin Somers Date: Fri, 2 Oct 2020 09:22:36 +0200 Subject: [PATCH] Bug 26594: add Unit Test Run prove t/db_dependent/Patron/Borrower_Debarments.t Signed-off-by: David Nind Signed-off-by: Katrin Fischer Signed-off-by: Kyle M Hall --- t/db_dependent/Patron/Borrower_Debarments.t | 35 ++++++++++++++++++++- 1 file changed, 34 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Patron/Borrower_Debarments.t b/t/db_dependent/Patron/Borrower_Debarments.t index 144de3479e..c07b80935b 100755 --- a/t/db_dependent/Patron/Borrower_Debarments.t +++ b/t/db_dependent/Patron/Borrower_Debarments.t @@ -8,7 +8,7 @@ use Koha::Patrons; use t::lib::TestBuilder; -use Test::More tests => 31; +use Test::More tests => 33; use_ok('Koha::Patron::Debarments'); @@ -161,3 +161,36 @@ is( Koha::Patrons->find( $borrowernumber )->is_debarred, undef, 'A patron withou $dbh->do(q|UPDATE borrowers SET debarred = '9999-12-31'|); # Note: Change this test before the first of January 10000! is( Koha::Patrons->find( $borrowernumber )->is_debarred, '9999-12-31', 'A patron with a debarred date in the future is debarred' ); + +# Test patrons merge +my $borrowernumber2 = Koha::Patron->new( + { + firstname => 'my firstname bis', + surname => 'my surname bis', + categorycode => $patron_category->{categorycode}, + branchcode => $library->{branchcode}, + } +)->store->borrowernumber; +my $debarreddate2 = '9999-06-10'; # Be sure to be in the future +my $debarredcomment2 = 'Test merge'; +AddDebarment( + { + borrowernumber => $borrowernumber2, + expiration => $debarreddate2, + type => 'MANUAL', + comment => $debarredcomment2, + } +); +my $borrowernumber3 = Koha::Patron->new( + { + firstname => 'my firstname ter', + surname => 'my surname ter', + categorycode => $patron_category->{categorycode}, + branchcode => $library->{branchcode}, + } +)->store->borrowernumber; +Koha::Patrons->find($borrowernumber3)->merge_with( [$borrowernumber2] ); +is( Koha::Patrons->find($borrowernumber3)->debarred, + $debarreddate2, 'Koha::Patron->merge_with() transfers well debarred' ); +is( Koha::Patrons->find($borrowernumber3)->debarredcomment, + $debarredcomment2, 'Koha::Patron->merge_with() transfers well debarredcomment' ); -- 2.24.1 (Apple Git-126)