|
Lines 887-894
subtest 'pickup_locations() tests' => sub {
Link Here
|
| 887 |
$schema->storage->txn_rollback; |
887 |
$schema->storage->txn_rollback; |
| 888 |
}; |
888 |
}; |
| 889 |
|
889 |
|
| 890 |
subtest 'request_transfer' => sub { |
890 |
subtest 'request_transfer() tests' => sub { |
| 891 |
plan tests => 14; |
891 |
|
|
|
892 |
plan tests => 18; |
| 893 |
|
| 892 |
$schema->storage->txn_begin; |
894 |
$schema->storage->txn_begin; |
| 893 |
|
895 |
|
| 894 |
my $library1 = $builder->build_object( { class => 'Koha::Libraries' } ); |
896 |
my $library1 = $builder->build_object( { class => 'Koha::Libraries' } ); |
|
Lines 910-920
subtest 'request_transfer' => sub {
Link Here
|
| 910 |
'Exception thrown if `to` parameter is missing'; |
912 |
'Exception thrown if `to` parameter is missing'; |
| 911 |
|
913 |
|
| 912 |
# Successful request |
914 |
# Successful request |
|
|
915 |
t::lib::Mocks::mock_preference( 'TransfersLog', 0 ); |
| 916 |
|
| 917 |
$schema->resultset('ActionLog')->search()->delete(); |
| 913 |
my $transfer = $item->request_transfer( { to => $library1, reason => 'Manual' } ); |
918 |
my $transfer = $item->request_transfer( { to => $library1, reason => 'Manual' } ); |
| 914 |
is( |
919 |
is( |
| 915 |
ref($transfer), 'Koha::Item::Transfer', |
920 |
ref($transfer), 'Koha::Item::Transfer', |
| 916 |
'Koha::Item->request_transfer should return a Koha::Item::Transfer object' |
921 |
'Koha::Item->request_transfer should return a Koha::Item::Transfer object' |
| 917 |
); |
922 |
); |
|
|
923 |
is( $schema->resultset('ActionLog')->count(), 0, 'False value for TransfersLog does not trigger logging' ); |
| 924 |
$transfer->delete; |
| 925 |
|
| 926 |
t::lib::Mocks::mock_preference( 'TransfersLog', 1 ); |
| 927 |
|
| 928 |
$transfer = $item->request_transfer( { to => $library1, reason => 'Manual' } ); |
| 929 |
is( |
| 930 |
ref($transfer), 'Koha::Item::Transfer', |
| 931 |
'Koha::Item->request_transfer should return a Koha::Item::Transfer object' |
| 932 |
); |
| 933 |
is( $schema->resultset('ActionLog')->count(), 1, 'True value for TransfersLog does trigger logging' ); |
| 934 |
$transfer->delete; |
| 935 |
|
| 936 |
t::lib::Mocks::mock_preference( 'TransfersLog', 0 ); |
| 937 |
|
| 938 |
# Successful request |
| 939 |
$transfer = $item->request_transfer( { to => $library1, reason => 'Manual' } ); |
| 940 |
is( |
| 941 |
ref($transfer), 'Koha::Item::Transfer', |
| 942 |
'Koha::Item->request_transfer should return a Koha::Item::Transfer object' |
| 943 |
); |
| 944 |
|
| 918 |
my $original_transfer = $transfer->get_from_storage; |
945 |
my $original_transfer = $transfer->get_from_storage; |
| 919 |
|
946 |
|
| 920 |
# Transfer already in progress |
947 |
# Transfer already in progress |
| 921 |
- |
|
|