Lines 1119-1125
subtest 'pickup_locations() tests' => sub {
Link Here
|
1119 |
|
1119 |
|
1120 |
subtest 'request_transfer() tests' => sub { |
1120 |
subtest 'request_transfer() tests' => sub { |
1121 |
|
1121 |
|
1122 |
plan tests => 18; |
1122 |
plan tests => 20; |
1123 |
|
1123 |
|
1124 |
$schema->storage->txn_begin; |
1124 |
$schema->storage->txn_begin; |
1125 |
|
1125 |
|
Lines 1174-1179
subtest 'request_transfer() tests' => sub {
Link Here
|
1174 |
|
1174 |
|
1175 |
my $original_transfer = $transfer->get_from_storage; |
1175 |
my $original_transfer = $transfer->get_from_storage; |
1176 |
|
1176 |
|
|
|
1177 |
# Duplicated request |
1178 |
$transfer = $item->request_transfer( { to => $library1, reason => 'Manual' } ); |
1179 |
is( |
1180 |
ref($transfer), 'Koha::Item::Transfer', |
1181 |
'Koha::Item->request_transfer should return a Koha::Item::Transfer object' |
1182 |
); |
1183 |
is( |
1184 |
$transfer->branchtransfer_id, $original_transfer->branchtransfer_id, |
1185 |
"When a matching transfer is requested we update the existing one" |
1186 |
); |
1187 |
|
1177 |
# Transfer already in progress |
1188 |
# Transfer already in progress |
1178 |
throws_ok { $item->request_transfer( { to => $library2, reason => 'Manual' } ) } |
1189 |
throws_ok { $item->request_transfer( { to => $library2, reason => 'Manual' } ) } |
1179 |
'Koha::Exceptions::Item::Transfer::InQueue', |
1190 |
'Koha::Exceptions::Item::Transfer::InQueue', |
1180 |
- |
|
|