Lines 7-12
use Modern::Perl;
Link Here
|
7 |
use Test::More tests => 19; |
7 |
use Test::More tests => 19; |
8 |
use Test::Warn; |
8 |
use Test::Warn; |
9 |
|
9 |
|
|
|
10 |
use DateTime; |
11 |
|
10 |
use Koha::Database; |
12 |
use Koha::Database; |
11 |
use t::lib::TestBuilder; |
13 |
use t::lib::TestBuilder; |
12 |
use t::lib::Mocks; |
14 |
use t::lib::Mocks; |
Lines 771-777
subtest do_checkout_with_sysprefs_override => sub {
Link Here
|
771 |
}; |
773 |
}; |
772 |
|
774 |
|
773 |
subtest do_checkout_with_patron_blocked => sub { |
775 |
subtest do_checkout_with_patron_blocked => sub { |
774 |
plan tests => 5; |
776 |
|
|
|
777 |
plan tests => 8; |
775 |
|
778 |
|
776 |
my $mockILS = Test::MockObject->new; |
779 |
my $mockILS = Test::MockObject->new; |
777 |
my $server = { ils => $mockILS }; |
780 |
my $server = { ils => $mockILS }; |
Lines 804-820
subtest do_checkout_with_patron_blocked => sub {
Link Here
|
804 |
} |
807 |
} |
805 |
); |
808 |
); |
806 |
|
809 |
|
|
|
810 |
my $date_expiry = DateTime->new( year => 2020, month => 1, day => 3 ); |
811 |
|
807 |
my $expired_patron = $builder->build_object( |
812 |
my $expired_patron = $builder->build_object( |
808 |
{ |
813 |
{ |
809 |
class => 'Koha::Patrons', |
814 |
class => 'Koha::Patrons', |
810 |
value => { |
815 |
value => { |
811 |
branchcode => $library->branchcode, |
816 |
branchcode => $library->branchcode, |
812 |
dateexpiry => '2020/01/03', |
817 |
dateexpiry => $date_expiry, |
813 |
} |
818 |
} |
814 |
} |
819 |
} |
815 |
); |
820 |
); |
816 |
my $circ = $ils->checkout( $expired_patron->cardnumber, $item->barcode ); |
821 |
|
817 |
is( $circ->{screen_msg}, 'Patron expired on 01/03/2020', "Got correct expired screen message" ); |
822 |
my $circ; |
|
|
823 |
|
824 |
foreach my $dateformat (qw{metric us iso dmydot}) { |
825 |
t::lib::Mocks::mock_preference( 'dateformat', $dateformat ); |
826 |
$circ = $ils->checkout( $expired_patron->cardnumber, $item->barcode ); |
827 |
is( |
828 |
$circ->{screen_msg}, |
829 |
'Patron expired on ' . output_pref( { dt => dt_from_string( $date_expiry, 'iso' ), dateonly => 1 } ), |
830 |
"Got correct expired screen message" |
831 |
); |
832 |
} |
818 |
|
833 |
|
819 |
my $fines_patron = $builder->build_object( |
834 |
my $fines_patron = $builder->build_object( |
820 |
{ |
835 |
{ |
821 |
- |
|
|