Bugzilla – Attachment 16452 Details for
Bug 9103
overdue_notices.pl should use AutoEmailPrimaryAddress syspref
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 9103 : Follow up adding unit test
Bug-9103--Follow-up-adding-unit-test.patch (text/plain), 2.37 KB, created by
Chris Cormack
on 2013-03-20 02:38:35 UTC
(
hide
)
Description:
Bug 9103 : Follow up adding unit test
Filename:
MIME Type:
Creator:
Chris Cormack
Created:
2013-03-20 02:38:35 UTC
Size:
2.37 KB
patch
obsolete
>From ee3e25ca49cb8b917ba5087d65f6eacd7d446286 Mon Sep 17 00:00:00 2001 >From: Chris Cormack <chrisc@catalyst.net.nz> >Date: Wed, 20 Mar 2013 15:37:44 +1300 >Subject: [PATCH] Bug 9103 : Follow up adding unit test > >--- > t/db_dependent/Members.t | 20 ++++++++++++++++++-- > 1 file changed, 18 insertions(+), 2 deletions(-) > >diff --git a/t/db_dependent/Members.t b/t/db_dependent/Members.t >index 420f7f3..58c0d37 100755 >--- a/t/db_dependent/Members.t >+++ b/t/db_dependent/Members.t >@@ -6,7 +6,7 @@ > use strict; > use warnings; > >-use Test::More tests => 20; >+use Test::More tests => 22; > use Data::Dumper; > > BEGIN { >@@ -22,6 +22,7 @@ my $BRANCHCODE = 'CPL'; > > my $CHANGED_FIRSTNAME = "Marry Ann"; > my $EMAIL = "Marie\@email.com"; >+my $EMAILPRO = "Marie\@work.com"; > my $ETHNICITY = "German"; > my $PHONE = "555-12123"; > >@@ -77,12 +78,14 @@ $member->{firstname} = $CHANGED_FIRSTNAME; > $member->{email} = $EMAIL; > $member->{ethnicity} = $ETHNICITY; > $member->{phone} = $PHONE; >+$member->{emailpro} = $EMAILPRO; > ModMember(%$member); > my $changedmember=GetMemberDetails("",$CARDNUMBER); > ok ( $changedmember->{firstname} eq $CHANGED_FIRSTNAME && > $changedmember->{email} eq $EMAIL && > $changedmember->{ethnicity} eq $ETHNICITY && >- $changedmember->{phone} eq $PHONE >+ $changedmember->{phone} eq $PHONE && >+ $changedmember->{emailpro} eq $EMAILPRO > , "Member Changed") > or diag("Mismatching member details: ".Dumper($member, $changedmember)); > >@@ -154,6 +157,19 @@ is ($age, "18", "Age correct"); > $age=GetAge("2011-01-19", "1992-01-19"); > is ($age, "-19", "Birthday In the Future"); > >+C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'OFF' ); >+C4::Context->clear_syspref_cache(); >+ >+my $notice_email = GetNoticeEmailAddress($member->{'borrowernumber'}); >+is ($notice_email, $EMAIL, "GetNoticeEmailAddress returns correct value when AutoEmailPrimaryAddress is off"); >+ >+C4::Context->set_preference( 'AutoEmailPrimaryAddress', 'emailpro' ); >+C4::Context->clear_syspref_cache(); >+ >+my $notice_email = GetNoticeEmailAddress($member->{'borrowernumber'}); >+is ($notice_email, $EMAILPRO, "GetNoticeEmailAddress returns correct value when AutoEmailPrimaryAddress is emailpro"); >+ >+ > # clean up > DelMember($member->{borrowernumber}); > $results = Search($CARDNUMBER,undef,undef,undef,["cardnumber"]); >-- >1.7.10.4
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 9103
:
13511
|
15931
|
16110
|
16248
| 16452