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

(-)a/t/db_dependent/Circulation/Returns.t (-4 / +4 lines)
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({
(-)a/t/db_dependent/Circulation/issue.t (-1 / +1 lines)
Lines 372-377 my $itemnumber2; Link Here
372
        homebranch     => $branchcode_1,
372
        homebranch     => $branchcode_1,
373
        holdingbranch  => $branchcode_1,
373
        holdingbranch  => $branchcode_1,
374
        location => 'FIC',
374
        location => 'FIC',
375
        itype          => $itemtype
375
    },
376
    },
376
    $biblionumber
377
    $biblionumber
377
);
378
);
378
- 

Return to bug 14576