Lines 788-794
subtest 'is_valid_age' => sub {
Link Here
|
788 |
my $patron = $builder->build({ |
788 |
my $patron = $builder->build({ |
789 |
source => 'Borrower', |
789 |
source => 'Borrower', |
790 |
value => { |
790 |
value => { |
791 |
categorycode => 'AGE_5_10' |
791 |
categorycode => $category->categorycode |
792 |
} |
792 |
} |
793 |
}); |
793 |
}); |
794 |
$patron = Koha::Patrons->find( $patron->{borrowernumber} ); |
794 |
$patron = Koha::Patrons->find( $patron->{borrowernumber} ); |
Lines 805-821
subtest 'is_valid_age' => sub {
Link Here
|
805 |
add_m3_m6_m1 => |
805 |
add_m3_m6_m1 => |
806 |
{ date => '2016-08-27', expected_age => 3, valid => 0 }, |
806 |
{ date => '2016-08-27', expected_age => 3, valid => 0 }, |
807 |
add_m7_m6_m1 => |
807 |
add_m7_m6_m1 => |
808 |
{ date => '2015-02-28', expected_age => 7, valid => 1 }, |
808 |
{ date => '2013-02-28', expected_age => 7, valid => 1 }, |
809 |
add_m5_0_0 => |
809 |
add_m5_0_0 => |
810 |
{ date => '2015-02-28', expected_age => 5, valid => 1 }, |
810 |
{ date => '2015-02-28', expected_age => 5, valid => 1 }, |
811 |
add_m5_0_p1 => |
811 |
add_m5_0_p1 => |
812 |
{ date => '2015-03-01', expected_age => 5, valid => 0 }, |
812 |
{ date => '2015-03-01', expected_age => 4, valid => 0 }, |
813 |
add_m5_0_m1 => |
813 |
add_m5_0_m1 => |
814 |
{ date => '2015-02-27', expected_age => 5, valid => 1 }, |
814 |
{ date => '2015-02-27', expected_age => 5, valid => 1 }, |
815 |
add_m11_0_0 => |
815 |
add_m11_0_0 => |
816 |
{ date => '2009-02-28', expected_age => 11, valid => 0 }, |
816 |
{ date => '2009-02-28', expected_age => 11, valid => 0 }, |
817 |
add_m11_0_p1 => |
817 |
add_m11_0_p1 => |
818 |
{ date => '2009-03-01', expected_age => 11, valid => 1 }, |
818 |
{ date => '2009-03-01', expected_age => 10, valid => 1 }, |
819 |
add_m11_0_m1 => |
819 |
add_m11_0_m1 => |
820 |
{ date => '2009-02-27', expected_age => 11, valid => 0 }, |
820 |
{ date => '2009-02-27', expected_age => 11, valid => 0 }, |
821 |
}, |
821 |
}, |
Lines 827-833
subtest 'is_valid_age' => sub {
Link Here
|
827 |
|
827 |
|
828 |
Time::Fake->offset( $dt->epoch ); |
828 |
Time::Fake->offset( $dt->epoch ); |
829 |
|
829 |
|
830 |
for my $k ( keys %$date ) { |
830 |
for my $k ( sort keys %$date ) { |
831 |
next if $k eq 'today'; |
831 |
next if $k eq 'today'; |
832 |
|
832 |
|
833 |
my $dob = $date->{$k}; |
833 |
my $dob = $date->{$k}; |
Lines 836-843
subtest 'is_valid_age' => sub {
Link Here
|
836 |
$patron->is_valid_age, |
836 |
$patron->is_valid_age, |
837 |
$dob->{valid}, |
837 |
$dob->{valid}, |
838 |
sprintf( |
838 |
sprintf( |
839 |
"Today=%s, dob=%s, is %s, should be valid=%s", |
839 |
"Today=%s, dob=%s, is %s, should be valid=%s in category %s", |
840 |
$date->{today}, $dob->{date}, $dob->{expected_age}, $dob->{valid} |
840 |
$date->{today}, $dob->{date}, $dob->{expected_age}, $dob->{valid}, $category->categorycode |
841 |
) |
841 |
) |
842 |
); |
842 |
); |
843 |
} |
843 |
} |
844 |
- |
|
|