From 275e389afb9703504847e40dcd6567c883cf8a1a Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 5 May 2014 02:07:32 +0000 Subject: [PATCH] Bug 6739: (follow-up) add unit tests for GetMemberDetails()->{is_expired} Signed-off-by: Galen Charlton --- t/db_dependent/Members.t | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Members.t b/t/db_dependent/Members.t index 007f8eb567..e086bdf759 100755 --- a/t/db_dependent/Members.t +++ b/t/db_dependent/Members.t @@ -6,7 +6,7 @@ use strict; use warnings; -use Test::More tests => 24; +use Test::More tests => 26; use Data::Dumper; use C4::Context; @@ -65,7 +65,8 @@ my %data = ( surname => $SURNAME, categorycode => $CATEGORYCODE, branchcode => $BRANCHCODE, - dateofbirth => '' + dateofbirth => '', + dateexpiry => '9999-12-31', ); my $addmem=AddMember(%data); @@ -186,6 +187,10 @@ C4::Context->clear_syspref_cache(); $notice_email = GetNoticeEmailAddress($member->{'borrowernumber'}); is ($notice_email, $EMAILPRO, "GetNoticeEmailAddress returns correct value when AutoEmailPrimaryAddress is emailpro"); +ok(!$member->{is_expired}, "GetMemberDetails() indicates that patron is not expired"); +ModMember(borrowernumber => $member->{'borrowernumber'}, dateexpiry => '2001-01-1'); +$member = GetMemberDetails($member->{'borrowernumber'}); +ok($member->{is_expired}, "GetMemberDetails() indicates that patron is expired"); # clean up DelMember($member->{borrowernumber}); -- 2.39.5