gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 11221: (follow-up) add unit test to test handling empty strings as dates 

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
All tests pass.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
Chris Cormack 2013-11-17 19:57:38 +13:00 committed by Galen Charlton
parent d63b4a766c
commit 11fbcb30de
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
t/db_dependent/Members.t
View File

@ -6,7 +6,7 @@
use strict;
use warnings;
use Test::More tests => 22;
use Test::More tests => 23;
use Data::Dumper;
BEGIN {
@ -59,6 +59,7 @@ my %data = (
surname => $SURNAME,
categorycode => $CATEGORYCODE,
branchcode => $BRANCHCODE,
dateofbirth => ''
);
my $addmem=AddMember(%data);
@ -74,6 +75,8 @@ ok ( $member->{firstname} eq $FIRSTNAME &&
, "Got member")
or diag("Mismatching member details: ".Dumper(\%data, $member));
ok($member->{dateofbirth} eq '', "Empty dates handled correctly");
$member->{firstname} = $CHANGED_FIRSTNAME;
$member->{email} = $EMAIL;
$member->{ethnicity} = $ETHNICITY;
@ -166,7 +169,7 @@ is ($notice_email, $EMAIL, "GetNoticeEmailAddress returns correct value when Aut
C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'emailpro' );
C4::Context->clear_syspref_cache();
my $notice_email = GetNoticeEmailAddress($member->{'borrowernumber'});
$notice_email = GetNoticeEmailAddress($member->{'borrowernumber'});
is ($notice_email, $EMAILPRO, "GetNoticeEmailAddress returns correct value when AutoEmailPrimaryAddress is emailpro");