View | Details | Raw Unified | Return to bug 22379
Collapse All | Expand All

(-)a/t/db_dependent/ILSDI_Services.t (-2 / +61 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use Test::More tests => 10;
22
use Test::More tests => 11;
23
use Test::MockModule;
23
use Test::MockModule;
24
use t::lib::Mocks;
24
use t::lib::Mocks;
25
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
Lines 27-32 use t::lib::Dates; Link Here
27
27
28
use C4::Items qw( ModItemTransfer );
28
use C4::Items qw( ModItemTransfer );
29
use C4::Circulation qw( AddIssue );
29
use C4::Circulation qw( AddIssue );
30
use C4::Reserves qw (AddReserve ModReserve ModReserveAffect ModReserveStatus);
30
31
31
use Koha::AuthUtils;
32
use Koha::AuthUtils;
32
use Koha::DateUtils;
33
use Koha::DateUtils;
Lines 737-742 subtest 'RenewHold' => sub { Link Here
737
    $schema->storage->txn_rollback;
738
    $schema->storage->txn_rollback;
738
};
739
};
739
740
741
subtest 'CancelHold' => sub {
742
    plan tests => 4;
743
744
    $schema->storage->txn_begin;
745
746
    my $cgi = CGI->new;
747
748
    my $library = $builder->build_object({
749
        class => 'Koha::Libraries',
750
    });
751
752
    my $patron = $builder->build_object( { class => 'Koha::Patrons',
753
                                           value => {
754
                                               branchcode => $library->branchcode,
755
                                           },
756
                                         } );
757
758
    my $patron2 = $builder->build_object( { class => 'Koha::Patrons',
759
                                           value => {
760
                                               branchcode => $library->branchcode,
761
                                           },
762
                                         } );
763
764
    my $item = $builder->build_sample_item({ library => $library->branchcode });
765
766
    my $reserve = C4::Reserves::AddReserve({branchcode => $library->branchcode,
767
                                            borrowernumber => $patron->borrowernumber,
768
                                            biblionumber => $item->biblionumber });
769
770
    # Affecting the reserve sets it to a waiting state
771
    C4::Reserves::ModReserveAffect( $item->itemnumber,
772
                                    $patron->borrowernumber,
773
                                    undef,
774
                                    $reserve,
775
                                   );
776
777
    $cgi->param( patron_id => $patron2->borrowernumber );
778
    $cgi->param( item_id   => $reserve );
779
780
781
    my $reply = C4::ILSDI::Services::CancelHold($cgi);
782
    is( $reply->{code}, 'BorrowerCannotCancelHold', 'If the patron is wrong, BorrowerCannotCancelHold should be returned');
783
784
    $cgi->param( patron_id => $patron->borrowernumber );
785
    $reply = C4::ILSDI::Services::CancelHold($cgi);
786
    is( $reply->{code}, 'BorrowerCannotCancelHold', 'If reserve in a Waiting state, patron cannot cancel');
787
788
    C4::Reserves::ModReserveStatus( $item->itemnumber, 'T' );
789
    $reply = C4::ILSDI::Services::CancelHold($cgi);
790
    is( $reply->{code}, 'BorrowerCannotCancelHold', 'If reserve in a Transfer state, patron cannot cancel');
791
792
    C4::Reserves::ModReserve( {rank => 1, reserve_id => $reserve, branchcode => $library->branchcode} );
793
    $cgi->param( item_id => $reserve );
794
    $reply = C4::ILSDI::Services::CancelHold($cgi);
795
    is( $reply->{code}, 'Canceled', 'If the patron is fine and reserve not waiting, Canceled should be returned and reserve canceled');
796
797
    $schema->storage->txn_rollback;
798
};
799
740
subtest 'GetPatronInfo paginated loans' => sub {
800
subtest 'GetPatronInfo paginated loans' => sub {
741
    plan tests => 7;
801
    plan tests => 7;
742
802
743
- 

Return to bug 22379