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