Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 4; |
20 |
use Test::More tests => 3; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use Test::Warn; |
22 |
use Test::Warn; |
23 |
|
23 |
|
Lines 121-131
subtest "AddReturn logging on statistics table (item-level_itypes=1)" => sub {
Link Here
|
121 |
|
121 |
|
122 |
is( $stat->itemtype, $ilevel_itemtype, |
122 |
is( $stat->itemtype, $ilevel_itemtype, |
123 |
"item-level itype recorded on statistics for return"); |
123 |
"item-level itype recorded on statistics for return"); |
124 |
warning_like { AddIssue( $borrower, $item_without_itemtype->{ barcode } ) } |
124 |
warnings_like { AddIssue( $borrower, $item_without_itemtype->{ barcode } ) } |
125 |
qr/^item-level_itypes set but no itemtype set for item/, |
125 |
[qr/^item-level_itypes set but no itemtype set for item/,qr/^item-level_itypes set but no itemtype set for item/,qr/^item-level_itypes set but no itemtype set for item/], |
126 |
'Item without itemtype set raises warning on AddIssue'; |
126 |
'Item without itemtype set raises warning on AddIssue'; |
127 |
warnings_like { AddReturn( $item_without_itemtype->{ barcode }, $branch ) } |
127 |
warnings_like { AddReturn( $item_without_itemtype->{ barcode }, $branch ) } |
128 |
[qr/^item-level_itypes set but no itemtype set for item/,qr/^item-level_itypes set but no itemtype set for item/], |
128 |
[qr/^item-level_itypes set but no itemtype set for item/,qr/^item-level_itypes set but no itemtype set for item/,qr/^item-level_itypes set but no itemtype set for item/], |
129 |
'Item without itemtype set raises warnings on AddReturn'; |
129 |
'Item without itemtype set raises warnings on AddReturn'; |
130 |
# Test biblio-level itemtype was recorded on the 'statistics' table |
130 |
# Test biblio-level itemtype was recorded on the 'statistics' table |
131 |
$stat = $schema->resultset('Statistic')->search({ |
131 |
$stat = $schema->resultset('Statistic')->search({ |