Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

getEmailAddresses: tests and implementation.

Browse source
This commit is contained in:
Bradley M. Kuhn 2015-12-31 01:59:50 -08:00
parent 4bd5ab4fd1
commit f3b7ebc6e3
2 changed files with 84 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
Supporters/lib/Supporters.pm
View file

@ -271,6 +271,46 @@ sub addEmailAddress($$$$) {
}
######################################################################
=begin getEmailAddresses
Arguments:
=over
=item $id
Valid supporter id number currently in the database. die() will occur if
the id number is not in the database already as a supporter id.
=back
Returns a hashes, where the keys are the emailAddreses and values a hash with two keys:
=over
=item date_encountered
=item name
=back
=cut
sub getEmailAddresses($$) {
my($self, $id) = @_;
die "getEmailAddresses: invalid id, $id" unless $self->_verifyId($id);
my $val = $self->dbh()->selectall_hashref("SELECT ea.email_address, at.name, ea.date_encountered " .
"FROM donor_email_address_mapping map, address_type at, email_address ea " .
"WHERE at.id = ea.type_id AND ea.id = map.email_address_id AND " .
"map.donor_id = " . $self->dbh->quote($id, 'SQL_INTEGER'),
'email_address');
foreach my $key (keys %{$val}) { delete $val->{$key}{email_address}; }
return %{$val};
}
######################################################################
=begin setPreferredEmailAddress
Arguments:

46
Supporters/t/Supporters.t
View file

@ -8,7 +8,7 @@
use strict;
use warnings;
use Test::More tests => 264;
use Test::More tests => 275;
use Test::Exception;
use Sub::Override;
use File::Temp qw/tempfile/;
@ -654,6 +654,7 @@ is_deeply $tShirt0Data,
$sp->getRequestConfigurations('t-shirt-0'),
"getRequestConfigurations: lookup of previously added items is same";
=item setPreferredEmailAddress/getPreferredEmailAddress
=cut
@ -694,7 +695,48 @@ lives_ok { $ret = $sp->getPreferredEmailAddress($drapperId) }
"getPreferredEmailAddress: lookup of known preferred email address succeeds... ";
is($ret, 'drapper@example.org', "getPreferredEmailAddress: ....and returns the correct value.");
=back
=item getEmailAddresses
=cut
my %emailAddresses;
dies_ok { %emailAddresses = $sp->getEmailAddresses(0); }
"getEmailAddresses: fails with 0 donorId";
dies_ok { %emailAddresses = $sp->getEmailAddresses("String"); }
"getEmailAddresses: fails with string donorId";
dies_ok { %emailAddresses = $sp->getEmailAddresses(undef); }
"getEmailAddresses: fails with string donorId";
lives_ok { %emailAddresses = $sp->getEmailAddresses($olsonId); }
"getEmailAddresses: 1 lookup of addresses succeeds...";
is_deeply(\%emailAddresses, {'everyone@example.net' => { 'date_encountered' => $today, 'name' => 'paypal' },
'olson@example.net' => { 'date_encountered' => '2015-12-31', 'name' => 'home' }},
"getEmailAddresses: ... and returns correct results.");
lives_ok { %emailAddresses = $sp->getEmailAddresses($drapperId); }
"getEmailAddresses: 2 lookup of addresses succeeds...";
is_deeply(\%emailAddresses, {'everyone@example.net' => { 'date_encountered' => $today, 'name' => 'paypal' },
'drapper@example.org' => { 'date_encountered' => '2015-12-31', 'name' => 'work' }},
"getEmailAddresses: ... and returns correct results.");
lives_ok { %emailAddresses = $sp->getEmailAddresses($sterlingId); }
"getEmailAddresses: 3 lookup of addresses succeeds...";
is_deeply(\%emailAddresses, {'sterlingjr@example.com' => { 'name' => 'home', 'date_encountered' => $today }},
"getEmailAddresses: ... and returns correct results.");
lives_ok { %emailAddresses = $sp->getEmailAddresses($campbellId); }
"getEmailAddresses: lookup of *empty* addresses succeeds...";
is_deeply(\%emailAddresses, {},
"getEmailAddresses: ... and returns correct results.");
=item findDonor