|
Lines 428-434
subtest "Test patron_status_string" => sub {
Link Here
|
| 428 |
|
428 |
|
| 429 |
subtest 'Lastseen response patron status' => sub { |
429 |
subtest 'Lastseen response patron status' => sub { |
| 430 |
|
430 |
|
| 431 |
plan tests => 6; |
431 |
plan tests => 7; |
| 432 |
|
432 |
|
| 433 |
my $schema = Koha::Database->new->schema; |
433 |
my $schema = Koha::Database->new->schema; |
| 434 |
$schema->storage->txn_begin; |
434 |
$schema->storage->txn_begin; |
|
Lines 488-493
subtest 'Lastseen response patron status' => sub {
Link Here
|
| 488 |
output_pref( { str => $seen_patron->lastseen(), dateonly => 1 } ), |
488 |
output_pref( { str => $seen_patron->lastseen(), dateonly => 1 } ), |
| 489 |
output_pref( { dt => dt_from_string(), dateonly => 1 } ), 'Last seen updated if tracking patrons' |
489 |
output_pref( { dt => dt_from_string(), dateonly => 1 } ), 'Last seen updated if tracking patrons' |
| 490 |
); |
490 |
); |
|
|
491 |
|
| 492 |
my $invalid_cardnumber_siprequest = |
| 493 |
PATRON_STATUS_REQ |
| 494 |
. 'engYYYYMMDDZZZZHHMMSS' |
| 495 |
. FID_INST_ID |
| 496 |
. $branchcode . '|' |
| 497 |
. FID_PATRON_ID |
| 498 |
. 'thiscardnumberdoesnotexist' . '|' |
| 499 |
. FID_PATRON_PWD |
| 500 |
. PATRON_PW . '|'; |
| 501 |
my $invalid_msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
| 502 |
$msg->handle_patron_status($server); |
| 503 |
|
| 504 |
isnt( $response, undef, 'At least we got a response.' ); |
| 505 |
|
| 491 |
$schema->storage->txn_rollback; |
506 |
$schema->storage->txn_rollback; |
| 492 |
|
507 |
|
| 493 |
}; |
508 |
}; |
| 494 |
- |
|
|