Lines 2250-2256
subtest 'guarantor requirements tests' => sub {
Link Here
|
2250 |
$schema->storage->txn_rollback; |
2250 |
$schema->storage->txn_rollback; |
2251 |
}; |
2251 |
}; |
2252 |
|
2252 |
|
2253 |
subtest 'can_borrow() tests' => sub { |
2253 |
subtest 'can_checkout() tests' => sub { |
2254 |
plan tests => 11; |
2254 |
plan tests => 11; |
2255 |
$schema->storage->txn_begin; |
2255 |
$schema->storage->txn_begin; |
2256 |
|
2256 |
|
Lines 2277-2291
subtest 'can_borrow() tests' => sub {
Link Here
|
2277 |
my $patron_borrowing_status; |
2277 |
my $patron_borrowing_status; |
2278 |
|
2278 |
|
2279 |
$patron->debarred(1); |
2279 |
$patron->debarred(1); |
2280 |
$patron_borrowing_status = $patron->can_borrow( { patron => $patron } ); |
2280 |
$patron_borrowing_status = $patron->can_checkout( { patron => $patron } ); |
2281 |
is( $patron_borrowing_status->{can_borrow}, 0, 'Debarred patron blocked from borrowing' ); |
2281 |
is( $patron_borrowing_status->{can_checkout}, 0, 'Debarred patron blocked from borrowing' ); |
2282 |
is( $patron_borrowing_status->{debarred}, 1, 'Blocker correctly identified and returned' ); |
2282 |
is( $patron_borrowing_status->{debarred}, 1, 'Blocker correctly identified and returned' ); |
2283 |
$patron->debarred(0); |
2283 |
$patron->debarred(0); |
2284 |
|
2284 |
|
2285 |
$patron->dateexpiry( dt_from_string->subtract( days => 1 ) ); |
2285 |
$patron->dateexpiry( dt_from_string->subtract( days => 1 ) ); |
2286 |
$patron_borrowing_status = $patron->can_borrow( { patron => $patron } ); |
2286 |
$patron_borrowing_status = $patron->can_checkout( { patron => $patron } ); |
2287 |
is( $patron_borrowing_status->{can_borrow}, 0, 'Expired patron blocked from borrowing' ); |
2287 |
is( $patron_borrowing_status->{can_checkout}, 0, 'Expired patron blocked from borrowing' ); |
2288 |
is( $patron_borrowing_status->{expired}, 1, 'Blocker correctly identified and returned' ); |
2288 |
is( $patron_borrowing_status->{expired}, 1, 'Blocker correctly identified and returned' ); |
2289 |
$patron->dateexpiry(undef); |
2289 |
$patron->dateexpiry(undef); |
2290 |
|
2290 |
|
2291 |
my $child = $builder->build_object( { class => 'Koha::Patrons' } ); |
2291 |
my $child = $builder->build_object( { class => 'Koha::Patrons' } ); |
Lines 2328-2345
subtest 'can_borrow() tests' => sub {
Link Here
|
2328 |
} |
2328 |
} |
2329 |
)->store; |
2329 |
)->store; |
2330 |
|
2330 |
|
2331 |
$patron_borrowing_status = $patron->can_borrow( { patron => $patron } ); |
2331 |
$patron_borrowing_status = $patron->can_checkout( { patron => $patron } ); |
2332 |
|
2332 |
|
2333 |
is( $patron_borrowing_status->{noissuescharge}->{charge}, 11, "Only patron's fines are reported in total" ); |
2333 |
is( $patron_borrowing_status->{noissuescharge}->{charge}, 11, "Only patron's fines are reported in total" ); |
2334 |
is( $patron_borrowing_status->{noissuescharge}->{limit}, 10, "Limit correctly identified at category level" ); |
2334 |
is( $patron_borrowing_status->{noissuescharge}->{limit}, 10, "Limit correctly identified at category level" ); |
2335 |
is( $patron_borrowing_status->{noissuescharge}->{overlimit}, 1, "Patron is over the charge limit" ); |
2335 |
is( $patron_borrowing_status->{noissuescharge}->{overlimit}, 1, "Patron is over the charge limit" ); |
2336 |
is( $patron_borrowing_status->{can_borrow}, 0, "Patron is over the charge limit and is blocked from borrowing" ); |
2336 |
is( $patron_borrowing_status->{can_checkout}, 0, "Patron is over the charge limit and is blocked from borrowing" ); |
2337 |
$patron->category->noissuescharge(undef); |
2337 |
$patron->category->noissuescharge(undef); |
2338 |
|
2338 |
|
2339 |
$patron_borrowing_status = $patron->can_borrow( { patron => $patron } ); |
2339 |
$patron_borrowing_status = $patron->can_checkout( { patron => $patron } ); |
2340 |
is( $patron_borrowing_status->{noissuescharge}->{limit}, 50, "Limit correctly identified at global syspref level" ); |
2340 |
is( $patron_borrowing_status->{noissuescharge}->{limit}, 50, "Limit correctly identified at global syspref level" ); |
2341 |
is( $patron_borrowing_status->{noissuescharge}->{overlimit}, 0, "Patron is within the charge limit" ); |
2341 |
is( $patron_borrowing_status->{noissuescharge}->{overlimit}, 0, "Patron is within the charge limit" ); |
2342 |
is( $patron_borrowing_status->{can_borrow}, 1, "Patron is within the charge limit and can borrow" ); |
2342 |
is( $patron_borrowing_status->{can_checkout}, 1, "Patron is within the charge limit and can borrow" ); |
2343 |
|
2343 |
|
2344 |
$schema->storage->txn_rollback; |
2344 |
$schema->storage->txn_rollback; |
2345 |
}; |
2345 |
}; |
2346 |
- |
|
|