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

new: Tests verify $dbh is a valid database handle

Browse source 
These tests ensure new() method checks to see if you're really giving a
DBI class member as the first argument.
This commit is contained in:
Bradley M. Kuhn 2015-12-16 19:21:01 -08:00
parent 731bc2a05d
commit 470b889c3e
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Supporters/t/Supporters.t
View file

@ -8,7 +8,7 @@ use warnings;
use Test::More tests => 61; use Test::More tests => 61;
use Test::Exception; use Test::Exception;
use Scalar::Util qw(looks_like_number reftype); use Scalar::Util qw(looks_like_number reftype blessed);
=pod =pod
@ -37,7 +37,14 @@ my $dbh = get_test_dbh();
=cut =cut
my $sp = new Supporters($dbh, "testcmd"); my $sp;
dies_ok { $sp = new Supporters(undef, "test"); }
"new: dies when dbh is undefined.";
dies_ok { $sp = new Supporters(bless({}, "Not::A::Real::Module"), "test"); }
"new: dies when dbh is blessed into another module.";
$sp = new Supporters($dbh, "testcmd");
is($dbh, $sp->dbh(), "new: verify dbh set"); is($dbh, $sp->dbh(), "new: verify dbh set");
is("testcmd", $sp->ledgerCmd(), "new: verify ledgerCmd set"); is("testcmd", $sp->ledgerCmd(), "new: verify ledgerCmd set");