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

addEmailAddress: test for duplicate adds.

Browse source 
These tests verify that duplicate adds do not try to add the same email
address again.  These tests currently fail.
This commit is contained in:
Bradley M. Kuhn 2015-12-30 05:54:38 -08:00
parent 6d1825240a
commit e10f8ed61a
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Supporters/t/Supporters.t
View file

@ -5,7 +5,7 @@
use strict;
use warnings;
use Test::More tests => 182;
use Test::More tests => 185;
use Test::Exception;
use Scalar::Util qw(looks_like_number reftype);
@ -100,6 +100,8 @@ my $val = $sp->dbh()->selectall_hashref("SELECT donor_id, email_address_id " .
ok((defined $val and defined $val->{$olsonId}{email_address_id} and $val->{$olsonId}{email_address_id} > 0),
"addSuporter: email address mapping is created on addSupporter() w/ email address included");
my $olsonFirstEmailId = $val->{$olsonId}{email_address_id};
=item addEmailAddress
=cut
@ -128,6 +130,15 @@ $val = $sp->dbh()->selectall_hashref("SELECT id, name FROM address_type WHERE na
ok((not defined $val or not defined $val->{'name'}),
"addEmailAddress: type is not added with email address is bad");
my $sameOlsonId;
dies_ok { $sameOlsonId = $sp->addEmailAddress($olsonId, 'olson@example.net', 'paypal') }
"addEmailAddress: fails adding existing email address with mismatched type.";
lives_ok { $sameOlsonId = $sp->addEmailAddress($olsonId, 'olson@example.net', 'home') }
"addEmailAddress: succeeds when adding email that already exists...";
is($sameOlsonId, $olsonFirstEmailId, "addEmailAddress: ... and returns same id.");
my $drapperEmailId;
lives_ok { $drapperEmailId = $sp->addEmailAddress($drapperId, 'drapper@example.org', 'work') }