|
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 |
- |
|
|