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