|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 44; |
20 |
use Test::More tests => 46; |
| 21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
| 22 |
use Test::Warn; |
22 |
use Test::Warn; |
| 23 |
use DBD::Mock; |
23 |
use DBD::Mock; |
|
Lines 167-175
warning_is { $ret = RemoveAllNsb() }
Link Here
|
| 167 |
|
167 |
|
| 168 |
ok( !defined $ret, 'RemoveAllNsb returns undef if not passed rec'); |
168 |
ok( !defined $ret, 'RemoveAllNsb returns undef if not passed rec'); |
| 169 |
|
169 |
|
| 170 |
warning_is { $ret = UpdateTotalIssues() } |
170 |
warning_is { $ret = GetMarcBiblio() } |
| 171 |
{ carped => 'UpdateTotalIssues could not get biblio record'}, |
171 |
{ carped => 'GetMarcBiblio called with undefined biblionumber'}, |
| 172 |
"UpdateTotalIssues returns carped warning if biblio record does not exist"; |
172 |
"GetMarcBiblio returns carped warning on undef biblionumber"; |
|
|
173 |
|
| 174 |
ok( !defined $ret, 'GetMarcBiblio returns undef if not passed a biblionumber'); |
| 175 |
|
| 176 |
warnings_like { $ret = UpdateTotalIssues() } |
| 177 |
[ { carped => qr/GetMarcBiblio called with undefined biblionumber/ }, |
| 178 |
{ carped => qr/UpdateTotalIssues could not get biblio record/ } ], |
| 179 |
"UpdateTotalIssues returns carped warnings if biblio record does not exist"; |
| 173 |
|
180 |
|
| 174 |
ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist'); |
181 |
ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist'); |
| 175 |
|
182 |
|
| 176 |
- |
|
|