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