From 6ee62d4917481f77db26f858491266cb86d2252c Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 19 Jan 2017 11:13:36 +0100 Subject: [PATCH] Bug 17933: Add test and return unless defined dob Without this patch get_age return actually 0 instead of Signed-off-by: Dobrica Pavlinusic Signed-off-by: Nick Clemens Signed-off-by: Kyle M Hall --- Koha/Patron.pm | 4 ++-- t/db_dependent/Koha/Patrons.t | 4 +++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index 1bc76143e3..b79b58a907 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -545,8 +545,8 @@ Return the age of the patron sub get_age { my ($self) = @_; my $today_str = dt_from_string->strftime("%Y-%m-%d"); - my $dob_str = dt_from_string( $self->dateofbirth ) || return; - $dob_str = $dob_str->strftime("%Y-%m-%d"); + return unless $self->dateofbirth; + my $dob_str = dt_from_string( $self->dateofbirth )->strftime("%Y-%m-%d"); my ( $dob_y, $dob_m, $dob_d ) = split /-/, $dob_str; my ( $today_y, $today_m, $today_d ) = split /-/, $today_str; diff --git a/t/db_dependent/Koha/Patrons.t b/t/db_dependent/Koha/Patrons.t index 0e6791ae3c..2fbe737ba3 100644 --- a/t/db_dependent/Koha/Patrons.t +++ b/t/db_dependent/Koha/Patrons.t @@ -492,13 +492,15 @@ subtest 'checkouts + get_overdues' => sub { }; subtest 'get_age' => sub { - plan tests => 6; + plan tests => 7; my $patron = $builder->build( { source => 'Borrower' } ); $patron = Koha::Patrons->find( $patron->{borrowernumber} ); my $today = dt_from_string; + $patron->dateofbirth( undef ); + is( $patron->get_age, undef, 'get_age should return undef if no dateofbirth is defined' ); $patron->dateofbirth( $today->clone->add( years => -12, months => -6, days => -1 ) ); is( $patron->get_age, 12, 'Patron should be 12' ); $patron->dateofbirth( $today->clone->add( years => -18, months => 0, days => 1 ) ); -- 2.39.5