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

(-)a/t/db_dependent/Members.t (-3 / +18 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 => 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
- 

Return to bug 9103