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

(-)a/t/db_dependent/Circulation/transferbook.t (-3 / +42 lines)
Lines 17-29 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 => 5;
21
use t::lib::TestBuilder;
21
use t::lib::TestBuilder;
22
use t::lib::Mocks;
22
use t::lib::Mocks;
23
23
24
use C4::Circulation;
24
use C4::Circulation;
25
use C4::Reserves;
25
use C4::Reserves;
26
use Koha::DateUtils qw( dt_from_string );
26
use Koha::DateUtils qw( dt_from_string );
27
use Koha::Item::Transfers;
27
28
28
my $builder = t::lib::TestBuilder->new;
29
my $builder = t::lib::TestBuilder->new;
29
30
Lines 47-52 subtest 'transfer a non-existant item' => sub { Link Here
47
    );
48
    );
48
};
49
};
49
50
51
subtest 'field population tests' => sub {
52
    plan tests => 6;
53
54
    my $library = $builder->build_object( { class => 'Koha::Libraries' } )->store;
55
    t::lib::Mocks::mock_userenv( { branchcode => $library->branchcode } );
56
57
    my $library2 = $builder->build_object( { class => 'Koha::Libraries' } )->store;
58
59
    my $patron = $builder->build_object(
60
        {
61
            class => 'Koha::Patrons',
62
            value => { branchcode => $library->branchcode }
63
        }
64
    );
65
66
    my $item = $builder->build_sample_item(
67
        {
68
            library => $library->branchcode,
69
        }
70
    );
71
72
    my $trigger = "Manual";
73
    my ($dotransfer, $messages ) = transferbook( $library2->branchcode, $item->barcode, undef, $trigger );
74
    is( $dotransfer, 1, 'Transfer succeeded' );
75
    is_deeply(
76
        $messages,
77
        { 'WasTransfered' => 1 },
78
        "WasTransfered was set correctly"
79
    );
80
81
    my $transfers = Koha::Item::Transfers->search({ itemnumber => $item->itemnumber, datearrived => undef });
82
    is( $transfers->count, 1, 'One transfer created');
83
84
    my $transfer = $transfers->next;
85
    is ($transfer->frombranch, $library->branchcode, 'frombranch set correctly'); 
86
    is ($transfer->tobranch, $library2->branchcode, 'tobranch set correctly'); 
87
    is ($transfer->reason, $trigger, 'reason set if passed'); 
88
};
89
50
#FIXME:'UseBranchTransferLimits tests missing
90
#FIXME:'UseBranchTransferLimits tests missing
51
91
52
subtest 'transfer already at destination' => sub {
92
subtest 'transfer already at destination' => sub {
Lines 69-75 subtest 'transfer already at destination' => sub { Link Here
69
    );
109
    );
70
110
71
    my ($dotransfer, $messages ) = transferbook( $library->branchcode, $item->barcode );
111
    my ($dotransfer, $messages ) = transferbook( $library->branchcode, $item->barcode );
72
    is( $dotransfer, 0, 'Transfer of reserved item failed with ignore reserves: true' );
112
    is( $dotransfer, 0, 'Transfer of item failed when destination equals holding branch' );
73
    is_deeply(
113
    is_deeply(
74
        $messages,
114
        $messages,
75
        { 'DestinationEqualsHolding' => 1 },
115
        { 'DestinationEqualsHolding' => 1 },
76
- 

Return to bug 24299