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

(-)a/t/db_dependent/Circulation.t (-43 / +2 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 => 57;
21
use Test::More tests => 56;
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 33-39 use t::lib::TestBuilder; Link Here
33
33
34
use C4::Accounts;
34
use C4::Accounts;
35
use C4::Calendar qw( new insert_single_holiday insert_week_day_holiday delete_holiday );
35
use C4::Calendar qw( new insert_single_holiday insert_week_day_holiday delete_holiday );
36
use C4::Circulation qw( AddIssue AddReturn CanBookBeRenewed GetIssuingCharges AddRenewal GetSoonestRenewDate GetLatestAutoRenewDate LostItem GetUpcomingDueIssues CanBookBeIssued AddIssuingCharge MarkIssueReturned ProcessOfflinePayment transferbook updateWrongTransfer );
36
use C4::Circulation qw( AddIssue AddReturn CanBookBeRenewed GetIssuingCharges AddRenewal GetSoonestRenewDate GetLatestAutoRenewDate LostItem GetUpcomingDueIssues CanBookBeIssued AddIssuingCharge MarkIssueReturned ProcessOfflinePayment transferbook );
37
use C4::Biblio;
37
use C4::Biblio;
38
use C4::Items qw( ModItemTransfer );
38
use C4::Items qw( ModItemTransfer );
39
use C4::Log;
39
use C4::Log;
Lines 4861-4906 subtest "Item's onloan value should be set if checked out item is checked out to Link Here
4861
    ok( $item->get_from_storage->onloan, "Item's onloan column is set after second checkout" );
4861
    ok( $item->get_from_storage->onloan, "Item's onloan column is set after second checkout" );
4862
};
4862
};
4863
4863
4864
subtest "updateWrongTransfer tests" => sub {
4865
    plan tests => 5;
4866
4867
    my $library1 = $builder->build_object( { class => 'Koha::Libraries' } );
4868
    my $library2 = $builder->build_object( { class => 'Koha::Libraries' } );
4869
    my $library3 = $builder->build_object( { class => 'Koha::Libraries' } );
4870
    my $item     = $builder->build_sample_item(
4871
        {
4872
            homebranch    => $library1->branchcode,
4873
            holdingbranch => $library2->branchcode,
4874
            datelastseen  => undef
4875
        }
4876
    );
4877
4878
    my $transfer = $builder->build_object(
4879
        {
4880
            class => 'Koha::Item::Transfers',
4881
            value => {
4882
                itemnumber    => $item->itemnumber,
4883
                frombranch    => $library2->branchcode,
4884
                tobranch      => $library1->branchcode,
4885
                daterequested => dt_from_string,
4886
                datesent      => dt_from_string,
4887
                datecancelled => undef,
4888
                datearrived   => undef,
4889
                reason        => 'Manual'
4890
            }
4891
        }
4892
    );
4893
    is( ref($transfer), 'Koha::Item::Transfer', 'Mock transfer added' );
4894
4895
    my $new_transfer = C4::Circulation::updateWrongTransfer($item->itemnumber, $library1->branchcode);
4896
    is(ref($new_transfer), 'Koha::Item::Transfer', "updateWrongTransfer returns a 'Koha::Item::Transfer' object");
4897
    ok( !$new_transfer->in_transit, "New transfer is NOT created as in transit (or cancelled)");
4898
4899
    my $original_transfer = $transfer->get_from_storage;
4900
    ok( defined($original_transfer->datecancelled), "Original transfer was cancelled");
4901
    is( $original_transfer->cancellation_reason, 'WrongTransfer', "Original transfer cancellation reason is 'WrongTransfer'");
4902
};
4903
4904
subtest "SendCirculationAlert" => sub {
4864
subtest "SendCirculationAlert" => sub {
4905
    plan tests => 2;
4865
    plan tests => 2;
4906
4866
4907
- 

Return to bug 28294