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

findDonor: initial set of unit tests.

Browse source 
These tests spec out what findDonor() should do.
This commit is contained in:
Bradley M. Kuhn 2015-12-30 05:02:39 -08:00
parent 1d84056acf
commit 2ef0dad053
1 changed files with 41 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
Supporters/t/Supporters.t
View file

@ -5,7 +5,7 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 160; use Test::More tests => 173;
use Test::Exception; use Test::Exception;
use Scalar::Util qw(looks_like_number reftype); use Scalar::Util qw(looks_like_number reftype);
@ -482,6 +482,46 @@ is($ret, 'drapper@example.org', "getPreferredEmailAddress: ....and returns the c
=back =back
=item findDonor
=cut
my $lookupDonorId;
dies_ok { $lookupDonorId = $sp->findDonor({}); }
"findDonor: no search criteria dies";
lives_ok { $lookupDonorId = $sp->findDonor({ledgerEntityId => "NotFound" }); }
"findDonor: 1 lookup of known missing succeeds ...";
is($lookupDonorId, undef, "findDonor: ... but finds nothing.");
lives_ok { $lookupDonorId = $sp->findDonor({emailAddress => "nothingthere" }); }
"findDonor: 2 lookup of known missing succeeds ...";
is($lookupDonorId, undef, "findDonor: ... but finds nothing.");
lives_ok { $lookupDonorId = $sp->findDonor({emailAddress => 'drapper@example.org', ledgerEntityId => "NOTFOUND" }); }
"findDonor: 1 and'ed criteria succeeds ...";
is($lookupDonorId, undef, "findDonor: ... but finds nothing.");
lives_ok { $lookupDonorId = $sp->findDonor({emailAddress => 'NOTFOUND', ledgerEntityId => "Whitman-Dick" }); }
"findDonor: 2 and'ed criteria succeeds ...";
is($lookupDonorId, undef, "findDonor: ... but finds nothing.");
lives_ok { $lookupDonorId = $sp->findDonor({emailAddress => 'drapper@example.org', ledgerEntityId => "Whitman-Dick" }); }
"findDonor: 1 valid multiple criteria succeeds ...";
is($lookupDonorId, $drapperId, "findDonor: ... and finds right entry.");
lives_ok { $lookupDonorId = $sp->findDonor({emailAddress => 'drapper@example.com', ledgerEntityId => "Whitman-Dick" }); }
"findDonor: 1 valid multiple criteria succeeds ...";
is($lookupDonorId, $drapperId, "findDonor: ... and finds right entry.");
=item Internal methods used only by the module itself. =item Internal methods used only by the module itself.
=over =over