From f30a0562b832b9f3aeb623f705037a6068a05dc9 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 --- 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 9a2fd18..0da30cf 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -113,6 +113,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 6b85dcc..b050288 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 => 11; +use Test::More tests => 12; use Test::Warn; use C4::Members; @@ -68,6 +68,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.1.4