|
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 |
- |
|
|