From ca5fb693627a46aac06b40d6bc2ee1d7f3781340 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 7 Nov 2016 14:24:54 +0000 Subject: [PATCH] Bug 17568: Add the Koha::Patron->library method This method will be convenient when moving code to Koha::Patrons Test plan: prove t/db_dependent/Koha/Patrons.t should return green Signed-off-by: Josef Moravec Signed-off-by: Julian Maurice Signed-off-by: Kyle M Hall --- Koha/Patron.pm | 5 +++++ t/db_dependent/Koha/Patrons.t | 8 +++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index 0a67bd73c8..b3f542599c 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -127,6 +127,11 @@ sub image { return Koha::Patron::Images->find( $self->borrowernumber ) } +sub library { + my ( $self ) = @_; + return Koha::Library->_new_from_dbic($self->_result->branchcode) +} + =head3 guarantees Returns the guarantees (list of Koha::Patron) of this patron diff --git a/t/db_dependent/Koha/Patrons.t b/t/db_dependent/Koha/Patrons.t index 6ab5fdcce0..fc4b0b7365 100644 --- a/t/db_dependent/Koha/Patrons.t +++ b/t/db_dependent/Koha/Patrons.t @@ -19,7 +19,7 @@ use Modern::Perl; -use Test::More tests => 16; +use Test::More tests => 17; use Test::Warn; use DateTime; @@ -71,6 +71,12 @@ is( Koha::Patrons->search->count, $nb_of_patrons + 2, 'The 2 patrons should have my $retrieved_patron_1 = Koha::Patrons->find( $new_patron_1->borrowernumber ); is( $retrieved_patron_1->cardnumber, $new_patron_1->cardnumber, 'Find a patron by borrowernumber should return the correct patron' ); +subtest 'library' => sub { + plan tests => 2; + is( $retrieved_patron_1->library->branchcode, $library->{branchcode}, 'Koha::Patron->library should return the correct library' ); + is( ref($retrieved_patron_1->library), 'Koha::Library', 'Koha::Patron->library should return a Koha::Library object' ); +}; + subtest 'guarantees' => sub { plan tests => 8; my $guarantees = $new_patron_1->guarantees; -- 2.39.5