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

(-)a/t/db_dependent/Circulation.t (-2 / +21 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
use utf8;
19
use utf8;
20
20
21
use Test::More tests => 66;
21
use Test::More tests => 67;
22
use Test::Exception;
22
use Test::Exception;
23
use Test::MockModule;
23
use Test::MockModule;
24
use Test::Deep qw( cmp_deeply );
24
use Test::Deep qw( cmp_deeply );
Lines 5803-5808 subtest 'Tests for BlockReturnOfWithdrawnItems' => sub { Link Here
5803
    plan tests => 1;
5803
    plan tests => 1;
5804
5804
5805
    t::lib::Mocks::mock_preference('BlockReturnOfWithdrawnItems', 1);
5805
    t::lib::Mocks::mock_preference('BlockReturnOfWithdrawnItems', 1);
5806
    t::lib::Mocks::mock_preference('RecordLocalUseOnReturn', 0);
5806
    my $item = $builder->build_sample_item();
5807
    my $item = $builder->build_sample_item();
5807
    $item->withdrawn(1)->itemlost(1)->store;
5808
    $item->withdrawn(1)->itemlost(1)->store;
5808
    my @return = AddReturn( $item->barcode, $item->homebranch, 0, undef );
5809
    my @return = AddReturn( $item->barcode, $item->homebranch, 0, undef );
Lines 5836-5841 subtest 'Tests for transfer not in transit' => sub { Link Here
5836
5837
5837
};
5838
};
5838
5839
5840
subtest 'Tests for RecordLocalUseOnReturn' => sub {
5841
5842
    plan tests => 2;
5843
5844
    t::lib::Mocks::mock_preference('RecordLocalUseOnReturn', 0);
5845
    my $item = $builder->build_sample_item();
5846
    $item->withdrawn(1)->itemlost(1)->store;
5847
    my @return = AddReturn( $item->barcode, $item->homebranch, 0, undef );
5848
    is_deeply(
5849
        \@return,
5850
        [ 0, { NotIssued => $item->barcode, withdrawn => 1  }, undef, {} ], "RecordLocalUSeOnReturn is off, no local use recorded");
5851
5852
    t::lib::Mocks::mock_preference('RecordLocalUseOnReturn', 1);
5853
    my @return2 = AddReturn( $item->barcode, $item->homebranch, 0, undef );
5854
    is_deeply(
5855
        \@return2,
5856
        [ 0, { NotIssued => $item->barcode, withdrawn => 1, LocalUse => 1  }, undef, {} ], "Local use is recorded");
5857
};
5858
5839
$schema->storage->txn_rollback;
5859
$schema->storage->txn_rollback;
5840
C4::Context->clear_syspref_cache();
5860
C4::Context->clear_syspref_cache();
5841
$branches = Koha::Libraries->search();
5861
$branches = Koha::Libraries->search();
5842
- 

Return to bug 33500