View | Details | Raw Unified | Return to bug 12995
Collapse All | Expand All

(-)a/t/Biblio.t (-2 / +7 lines)
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
- 

Return to bug 12995