Lines 6-12
Link Here
|
6 |
use strict; |
6 |
use strict; |
7 |
use warnings; |
7 |
use warnings; |
8 |
|
8 |
|
9 |
use Test::More tests => 20; |
9 |
use Test::More tests => 22; |
10 |
use Data::Dumper; |
10 |
use Data::Dumper; |
11 |
|
11 |
|
12 |
BEGIN { |
12 |
BEGIN { |
Lines 22-27
my $BRANCHCODE = 'CPL';
Link Here
|
22 |
|
22 |
|
23 |
my $CHANGED_FIRSTNAME = "Marry Ann"; |
23 |
my $CHANGED_FIRSTNAME = "Marry Ann"; |
24 |
my $EMAIL = "Marie\@email.com"; |
24 |
my $EMAIL = "Marie\@email.com"; |
|
|
25 |
my $EMAILPRO = "Marie\@work.com"; |
25 |
my $ETHNICITY = "German"; |
26 |
my $ETHNICITY = "German"; |
26 |
my $PHONE = "555-12123"; |
27 |
my $PHONE = "555-12123"; |
27 |
|
28 |
|
Lines 77-88
$member->{firstname} = $CHANGED_FIRSTNAME;
Link Here
|
77 |
$member->{email} = $EMAIL; |
78 |
$member->{email} = $EMAIL; |
78 |
$member->{ethnicity} = $ETHNICITY; |
79 |
$member->{ethnicity} = $ETHNICITY; |
79 |
$member->{phone} = $PHONE; |
80 |
$member->{phone} = $PHONE; |
|
|
81 |
$member->{emailpro} = $EMAILPRO; |
80 |
ModMember(%$member); |
82 |
ModMember(%$member); |
81 |
my $changedmember=GetMemberDetails("",$CARDNUMBER); |
83 |
my $changedmember=GetMemberDetails("",$CARDNUMBER); |
82 |
ok ( $changedmember->{firstname} eq $CHANGED_FIRSTNAME && |
84 |
ok ( $changedmember->{firstname} eq $CHANGED_FIRSTNAME && |
83 |
$changedmember->{email} eq $EMAIL && |
85 |
$changedmember->{email} eq $EMAIL && |
84 |
$changedmember->{ethnicity} eq $ETHNICITY && |
86 |
$changedmember->{ethnicity} eq $ETHNICITY && |
85 |
$changedmember->{phone} eq $PHONE |
87 |
$changedmember->{phone} eq $PHONE && |
|
|
88 |
$changedmember->{emailpro} eq $EMAILPRO |
86 |
, "Member Changed") |
89 |
, "Member Changed") |
87 |
or diag("Mismatching member details: ".Dumper($member, $changedmember)); |
90 |
or diag("Mismatching member details: ".Dumper($member, $changedmember)); |
88 |
|
91 |
|
Lines 154-159
is ($age, "18", "Age correct");
Link Here
|
154 |
$age=GetAge("2011-01-19", "1992-01-19"); |
157 |
$age=GetAge("2011-01-19", "1992-01-19"); |
155 |
is ($age, "-19", "Birthday In the Future"); |
158 |
is ($age, "-19", "Birthday In the Future"); |
156 |
|
159 |
|
|
|
160 |
C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'OFF' ); |
161 |
C4::Context->clear_syspref_cache(); |
162 |
|
163 |
my $notice_email = GetNoticeEmailAddress($member->{'borrowernumber'}); |
164 |
is ($notice_email, $EMAIL, "GetNoticeEmailAddress returns correct value when AutoEmailPrimaryAddress is off"); |
165 |
|
166 |
C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'emailpro' ); |
167 |
C4::Context->clear_syspref_cache(); |
168 |
|
169 |
my $notice_email = GetNoticeEmailAddress($member->{'borrowernumber'}); |
170 |
is ($notice_email, $EMAILPRO, "GetNoticeEmailAddress returns correct value when AutoEmailPrimaryAddress is emailpro"); |
171 |
|
172 |
|
157 |
# clean up |
173 |
# clean up |
158 |
DelMember($member->{borrowernumber}); |
174 |
DelMember($member->{borrowernumber}); |
159 |
$results = Search($CARDNUMBER,undef,undef,undef,["cardnumber"]); |
175 |
$results = Search($CARDNUMBER,undef,undef,undef,["cardnumber"]); |
160 |
- |
|
|