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

setPublicAck: initial tests and docs.

Browse source
This commit is contained in:
Bradley M. Kuhn 2015-12-30 17:47:56 -08:00
parent 21fa4a1379
commit dcdfa51d23
1 changed files with 32 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
Supporters/t/Supporters.t
View file

@ -8,7 +8,7 @@
use strict;
use warnings;
use Test::More tests => 229;
use Test::More tests => 242;
use Test::Exception;
use Sub::Override;
use File::Temp qw/tempfile/;
@ -255,6 +255,37 @@ lives_ok { $olsonLedgerEntity = $sp->getLedgerEntityId($olsonId); }
is($olsonLedgerEntity, "Olson-Margaret", "getLedgerEntityId: ...and return value is correct.");
=item setPublicAck
=cut
dies_ok { $sp->setPublicAck(0); } "setPublicAck: fails supporterId invalid";
dies_ok { $sp->setPublicAck("String"); } "setPublicAck: fails supporterId is string";
dies_ok { $sp->setPublicAck(undef); } "setPublicAck: fails supporterId is undef";
# Replace _verifyId() to always return true
$overrideSub = Sub::Override->new( 'Supporters::_verifyId' => sub ($$) { return 1;} );
dies_ok { $publicAckVal = $sp->setPublicAck(0); }
"setPublicAck: fails when rows are not returned but _verifyId() somehow passed";
$overrideSub->restore;
is($sp->getPublicAck($olsonId), 0, "setPublicAck: 1 failed calls changed nothing.");
is($sp->getPublicAck($drapperId), 1, "setPublicAck: 1 failed calls changed nothing.");
is($sp->getPublicAck($sterlingId), undef, "setPublicAck: 1 failed calls changed nothing.");
lives_ok { $sp->setPublicAck($olsonId, undef); }
"setPublicAck: lives when valid id is given for undefining...";
is($sp->getPublicAck($olsonId), undef, "setPublicAck: ...and suceeds in changing value.");
lives_ok { $sp->setPublicAck($drapperId, 0); }
"setPublicAck: lives when valid id is given for off...";
is($sp->getPublicAck($drapperId), 0, "setPublicAck: ...and suceeds in changing value.");
lives_ok { $sp->setPublicAck($sterlingId, 1); }
"setPublicAck: lives when valid id is given for on...";
is($sp->getPublicAck($sterlingId), 1, "setPublicAck: ...and suceeds in changing value.");
=item addEmailAddress
=cut