From 470b889c3ecba7fe266ddb7249a09402d82cf387 Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Wed, 16 Dec 2015 19:21:01 -0800 Subject: [PATCH] new: Tests verify $dbh is a valid database handle These tests ensure new() method checks to see if you're really giving a DBI class member as the first argument. --- Supporters/t/Supporters.t | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/Supporters/t/Supporters.t b/Supporters/t/Supporters.t index 9ed5416..605a217 100644 --- a/Supporters/t/Supporters.t +++ b/Supporters/t/Supporters.t @@ -8,7 +8,7 @@ use warnings; use Test::More tests => 61; use Test::Exception; -use Scalar::Util qw(looks_like_number reftype); +use Scalar::Util qw(looks_like_number reftype blessed); =pod @@ -37,7 +37,14 @@ my $dbh = get_test_dbh(); =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("testcmd", $sp->ledgerCmd(), "new: verify ledgerCmd set");