View | Details | Raw Unified | Return to bug 11221
Collapse All | Expand All

(-)a/t/db_dependent/Members.t (-3 / +5 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 22;
9
use Test::More tests => 23;
10
use Data::Dumper;
10
use Data::Dumper;
11
11
12
BEGIN {
12
BEGIN {
Lines 59-64 my %data = ( Link Here
59
    surname => $SURNAME,
59
    surname => $SURNAME,
60
    categorycode => $CATEGORYCODE,
60
    categorycode => $CATEGORYCODE,
61
    branchcode => $BRANCHCODE,
61
    branchcode => $BRANCHCODE,
62
    dateofbirth => ''
62
);
63
);
63
64
64
my $addmem=AddMember(%data);
65
my $addmem=AddMember(%data);
Lines 74-79 ok ( $member->{firstname} eq $FIRSTNAME && Link Here
74
     , "Got member")
75
     , "Got member")
75
  or diag("Mismatching member details: ".Dumper(\%data, $member));
76
  or diag("Mismatching member details: ".Dumper(\%data, $member));
76
77
78
ok($member->{dateofbirth} eq '', "Empty dates handled correctly");
79
77
$member->{firstname} = $CHANGED_FIRSTNAME;
80
$member->{firstname} = $CHANGED_FIRSTNAME;
78
$member->{email}     = $EMAIL;
81
$member->{email}     = $EMAIL;
79
$member->{ethnicity} = $ETHNICITY;
82
$member->{ethnicity} = $ETHNICITY;
Lines 166-172 is ($notice_email, $EMAIL, "GetNoticeEmailAddress returns correct value when Aut Link Here
166
C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'emailpro' );
169
C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'emailpro' );
167
C4::Context->clear_syspref_cache();
170
C4::Context->clear_syspref_cache();
168
171
169
my $notice_email = GetNoticeEmailAddress($member->{'borrowernumber'});
172
$notice_email = GetNoticeEmailAddress($member->{'borrowernumber'});
170
is ($notice_email, $EMAILPRO, "GetNoticeEmailAddress returns correct value when AutoEmailPrimaryAddress is emailpro");
173
is ($notice_email, $EMAILPRO, "GetNoticeEmailAddress returns correct value when AutoEmailPrimaryAddress is emailpro");
171
174
172
175
173
- 

Return to bug 11221