|
Lines 62-68
$branchcode = $branch->{branchcode};
Link Here
|
| 62 |
# START testing |
62 |
# START testing |
| 63 |
subtest 'Testing Patron Status Request V2' => sub { |
63 |
subtest 'Testing Patron Status Request V2' => sub { |
| 64 |
$schema->storage->txn_begin; |
64 |
$schema->storage->txn_begin; |
| 65 |
plan tests => 12; |
65 |
plan tests => 13; |
| 66 |
$C4::SIP::Sip::protocol_version = 2; |
66 |
$C4::SIP::Sip::protocol_version = 2; |
| 67 |
test_request_patron_status_v2(); |
67 |
test_request_patron_status_v2(); |
| 68 |
$schema->storage->txn_rollback; |
68 |
$schema->storage->txn_rollback; |
|
Lines 70-76
subtest 'Testing Patron Status Request V2' => sub {
Link Here
|
| 70 |
|
70 |
|
| 71 |
subtest 'Testing Patron Info Request V2' => sub { |
71 |
subtest 'Testing Patron Info Request V2' => sub { |
| 72 |
$schema->storage->txn_begin; |
72 |
$schema->storage->txn_begin; |
| 73 |
plan tests => 15; |
73 |
plan tests => 16; |
| 74 |
$C4::SIP::Sip::protocol_version = 2; |
74 |
$C4::SIP::Sip::protocol_version = 2; |
| 75 |
test_request_patron_info_v2(); |
75 |
test_request_patron_info_v2(); |
| 76 |
$schema->storage->txn_rollback; |
76 |
$schema->storage->txn_rollback; |
|
Lines 123-128
sub test_request_patron_status_v2 {
Link Here
|
| 123 |
$respcode = substr( $response, 0, 2 ); |
123 |
$respcode = substr( $response, 0, 2 ); |
| 124 |
check_field( $respcode, $response, FID_VALID_PATRON_PWD, 'N', 'Verified code CQ for wrong pw' ); |
124 |
check_field( $respcode, $response, FID_VALID_PATRON_PWD, 'N', 'Verified code CQ for wrong pw' ); |
| 125 |
|
125 |
|
|
|
126 |
# Check empty password and verify CQ again |
| 127 |
$siprequest = PATRON_STATUS_REQ. 'engYYYYMMDDZZZZHHMMSS'. |
| 128 |
FID_INST_ID. $branchcode. '|'. |
| 129 |
FID_PATRON_ID. $card1. '|'. |
| 130 |
FID_PATRON_PWD. '|'; |
| 131 |
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
| 132 |
undef $response; |
| 133 |
$msg->handle_patron_status( $server ); |
| 134 |
$respcode = substr( $response, 0, 2 ); |
| 135 |
check_field( $respcode, $response, FID_VALID_PATRON_PWD, 'N', 'code CQ should be N for empty AD' ); |
| 136 |
|
| 126 |
# Finally, we send a wrong card number and check AE, BL |
137 |
# Finally, we send a wrong card number and check AE, BL |
| 127 |
# This is done by removing the new patron first |
138 |
# This is done by removing the new patron first |
| 128 |
$schema->resultset('Borrower')->search({ cardnumber => $card1 })->delete; |
139 |
$schema->resultset('Borrower')->search({ cardnumber => $card1 })->delete; |
|
Lines 175-180
sub test_request_patron_info_v2 {
Link Here
|
| 175 |
# No check for custom fields here (unofficial PB, PC and PI) |
186 |
# No check for custom fields here (unofficial PB, PC and PI) |
| 176 |
check_field( $respcode, $response, FID_SCREEN_MSG, '.+', 'We have a screen msg', 'regex' ); |
187 |
check_field( $respcode, $response, FID_SCREEN_MSG, '.+', 'We have a screen msg', 'regex' ); |
| 177 |
|
188 |
|
|
|
189 |
# Check empty password and verify CQ again |
| 190 |
$siprequest = PATRON_INFO. 'engYYYYMMDDZZZZHHMMSS'.'Y '. |
| 191 |
FID_INST_ID. $branchcode. '|'. |
| 192 |
FID_PATRON_ID. $card. '|'. |
| 193 |
FID_PATRON_PWD. '|'; |
| 194 |
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
| 195 |
undef $response; |
| 196 |
$msg->handle_patron_info( $server ); |
| 197 |
$respcode = substr( $response, 0, 2 ); |
| 198 |
check_field( $respcode, $response, FID_VALID_PATRON_PWD, 'N', 'code CQ should be N for empty AD' ); |
| 199 |
|
| 178 |
# Finally, we send a wrong card number |
200 |
# Finally, we send a wrong card number |
| 179 |
$schema->resultset('Borrower')->search({ cardnumber => $card })->delete; |
201 |
$schema->resultset('Borrower')->search({ cardnumber => $card })->delete; |
| 180 |
undef $findpatron; |
202 |
undef $findpatron; |
| 181 |
- |
|
|