From f3a4ba8ef56d7c87dc6cb64b2a600ff36e57b047 Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Wed, 30 Dec 2015 18:59:41 -0800 Subject: [PATCH] Add actual test command. --- Supporters/t/Supporters.t | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/Supporters/t/Supporters.t b/Supporters/t/Supporters.t index 5d1554b..88c3132 100644 --- a/Supporters/t/Supporters.t +++ b/Supporters/t/Supporters.t @@ -82,13 +82,12 @@ dies_ok { $sp = new Supporters($dbh, [ "testcmd" ], {monthly => 'test' }); } dies_ok { $sp = new Supporters($dbh, [ "testcmd" ], {annual => 'test' }); } "new: dies when programTypeSearch key monthly is missing ."; -$sp = new Supporters($dbh, [ "testcmd" ]); +my $cmd = [ "/bin/cat", $fakeLedgerFile ]; + +$sp = new Supporters($dbh, $cmd); is($dbh, $sp->dbh(), "new: verify dbh set"); -is_deeply($sp->ledgerCmd(), ["testcmd" ], "new: verify ledgerCmd set"); - - -=pod +is_deeply($sp->ledgerCmd(), $cmd, "new: verify ledgerCmd set"); =item addSupporter