|
Lines 21-27
Link Here
|
| 21 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
21 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
| 22 |
|
22 |
|
| 23 |
use Modern::Perl; |
23 |
use Modern::Perl; |
| 24 |
use Test::More tests => 21; |
24 |
use Test::More tests => 22; |
| 25 |
use Test::Exception; |
25 |
use Test::Exception; |
| 26 |
use Test::MockObject; |
26 |
use Test::MockObject; |
| 27 |
use Test::MockModule; |
27 |
use Test::MockModule; |
|
Lines 492-497
subtest 'Lastseen response patron status' => sub {
Link Here
|
| 492 |
|
492 |
|
| 493 |
}; |
493 |
}; |
| 494 |
|
494 |
|
|
|
495 |
subtest 'Invalid cardnumber test response patron status' => sub { |
| 496 |
|
| 497 |
plan tests => 1; |
| 498 |
|
| 499 |
my $schema = Koha::Database->new->schema; |
| 500 |
$schema->storage->txn_begin; |
| 501 |
|
| 502 |
my $builder = t::lib::TestBuilder->new(); |
| 503 |
my $branchcode = $builder->build( { source => 'Branch' } )->{branchcode}; |
| 504 |
my ( $response, $findpatron ); |
| 505 |
my $mocks = create_mocks( \$response, \$findpatron, \$branchcode ); |
| 506 |
my $cardnum = 'nonexistentcardnumber'; |
| 507 |
my $sip_patron = C4::SIP::ILS::Patron->new($cardnum); |
| 508 |
$findpatron = $sip_patron; |
| 509 |
|
| 510 |
my $siprequest = |
| 511 |
PATRON_STATUS_REQ |
| 512 |
. 'engYYYYMMDDZZZZHHMMSS' |
| 513 |
. FID_INST_ID |
| 514 |
. $branchcode . '|' |
| 515 |
. FID_PATRON_ID |
| 516 |
. $cardnum . '|' |
| 517 |
. FID_PATRON_PWD |
| 518 |
. PATRON_PW . '|'; |
| 519 |
my $msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
| 520 |
|
| 521 |
my $server = { ils => $mocks->{ils} }; |
| 522 |
undef $response; |
| 523 |
|
| 524 |
t::lib::Mocks::mock_preference( 'TrackLastPatronActivityTriggers', 'login' ); |
| 525 |
$msg->handle_patron_status($server); |
| 526 |
isnt( $response, undef, 'At least we got a response.' ); |
| 527 |
|
| 528 |
$schema->storage->txn_rollback; |
| 529 |
|
| 530 |
}; |
| 531 |
|
| 495 |
subtest "Test build_additional_item_fields_string" => sub { |
532 |
subtest "Test build_additional_item_fields_string" => sub { |
| 496 |
my $schema = Koha::Database->new->schema; |
533 |
my $schema = Koha::Database->new->schema; |
| 497 |
$schema->storage->txn_begin; |
534 |
$schema->storage->txn_begin; |
| 498 |
- |
|
|