|
Lines 21-27
use Test::More tests => 6;
Link Here
|
| 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 qw( transferbook AddIssue GetTransfers ); |
24 |
use C4::Circulation qw( transferbook AddIssue ); |
| 25 |
use C4::Reserves qw( AddReserve ); |
25 |
use C4::Reserves qw( AddReserve ); |
| 26 |
use Koha::DateUtils qw( dt_from_string ); |
26 |
use Koha::DateUtils qw( dt_from_string ); |
| 27 |
use Koha::Item::Transfers; |
27 |
use Koha::Item::Transfers; |
|
Lines 287-303
subtest 'transferbook test from branch' => sub {
Link Here
|
| 287 |
barcode => $item->barcode, |
287 |
barcode => $item->barcode, |
| 288 |
trigger => "Manual" |
288 |
trigger => "Manual" |
| 289 |
}); |
289 |
}); |
| 290 |
my ($datesent,$from_branch,$to_branch) = GetTransfers($item->itemnumber); |
290 |
my $transfer = $item->get_transfer; |
| 291 |
is( $from_branch, $library->branchcode, 'The transfer is initiated from the specified branch, not the items home or holdingbranch'); |
291 |
is( $transfer->frombranch, $library->branchcode, 'The transfer is initiated from the specified branch, not the items home or holdingbranch'); |
| 292 |
is( $to_branch, $item->homebranch, 'The transfer is initiated to the specified branch'); |
292 |
is( $transfer->tobranch, $item->homebranch, 'The transfer is initiated to the specified branch'); |
| 293 |
C4::Circulation::transferbook({ |
293 |
C4::Circulation::transferbook({ |
| 294 |
from_branch => $item->homebranch, |
294 |
from_branch => $item->homebranch, |
| 295 |
to_branch => $library->branchcode, |
295 |
to_branch => $library->branchcode, |
| 296 |
barcode => $item->barcode, |
296 |
barcode => $item->barcode, |
| 297 |
trigger => "Manual" |
297 |
trigger => "Manual" |
| 298 |
}); |
298 |
}); |
| 299 |
($datesent,$from_branch,$to_branch) = GetTransfers($item->itemnumber); |
299 |
$transfer = $item->get_transfer; |
| 300 |
is( $from_branch, $item->homebranch, 'The transfer is initiated from the specified branch'); |
300 |
is( $transfer->frombranch, $item->homebranch, 'The transfer is initiated from the specified branch'); |
| 301 |
is( $to_branch, $library->branchcode, 'The transfer is initiated to the specified branch'); |
301 |
is( $transfer->tobranch, $library->branchcode, 'The transfer is initiated to the specified branch'); |
| 302 |
|
302 |
|
| 303 |
}; |
303 |
}; |
| 304 |
- |
|
|