Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 42; |
20 |
use Test::More tests => 44; |
21 |
use Test::Warn; |
21 |
use Test::Warn; |
22 |
|
22 |
|
23 |
BEGIN { |
23 |
BEGIN { |
Lines 155-158
warning_is { $ret = RemoveAllNsb() }
Link Here
|
155 |
|
155 |
|
156 |
ok( !defined $ret, 'RemoveAllNsb returns undef if not passed rec'); |
156 |
ok( !defined $ret, 'RemoveAllNsb returns undef if not passed rec'); |
157 |
|
157 |
|
|
|
158 |
warning_is { $ret = UpdateTotalIssues() } |
159 |
{ carped => 'UpdateTotalIssues could not get biblio record'}, |
160 |
"UpdateTotalIssues returns carped warning if biblio record does not exist"; |
161 |
|
162 |
ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist'); |
163 |
|
158 |
1; |
164 |
1; |
159 |
- |
|
|