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

Also verify it's a HASH reftype.

Browse source
This commit is contained in:
Bradley M. Kuhn 2015-12-14 17:28:19 -08:00
parent 2950067c63
commit 159d3d6609
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Supporters/t/Supporters.t
View file

@ -8,7 +8,7 @@ use warnings;
use Test::More tests => 55; use Test::More tests => 55;
use Test::Exception; use Test::Exception;
use Scalar::Util qw(looks_like_number); use Scalar::Util qw(looks_like_number reftype);
=pod =pod
@ -263,7 +263,7 @@ $tempDBH = reopen_test_dbh();
$val = $tempDBH->selectall_hashref("SELECT id FROM supporter;", 'id'); $val = $tempDBH->selectall_hashref("SELECT id FROM supporter;", 'id');
ok( (defined $val and keys(%{$val}) == 0), ok( (defined $val and reftype $val eq "HASH" and keys(%{$val}) == 0),
"addSupporter: fails if email_address given but email cannot be inserted"); "addSupporter: fails if email_address given but email cannot be inserted");