@@ -, +, @@ on corrupted record - UT --- t/Biblio.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) --- a/t/Biblio.t +++ a/t/Biblio.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 42; +use Test::More tests => 44; use Test::Warn; BEGIN { @@ -155,4 +155,10 @@ warning_is { $ret = RemoveAllNsb() } ok( !defined $ret, 'RemoveAllNsb returns undef if not passed rec'); +warning_is { $ret = UpdateTotalIssues() } + { carped => 'UpdateTotalIssues could not get biblio record'}, + "UpdateTotalIssues returns carped warning if biblio record does not exist"; + +ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist'); + 1; --