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