|
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 => 19; |
24 |
use Test::More tests => 20; |
| 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 249-254
subtest 'Lastseen response patron info' => sub {
Link Here
|
| 249 |
|
249 |
|
| 250 |
}; |
250 |
}; |
| 251 |
|
251 |
|
|
|
252 |
subtest 'Fine items, currency, start and end item response in patron info' => sub { |
| 253 |
|
| 254 |
plan tests => 6; |
| 255 |
|
| 256 |
my $schema = Koha::Database->new->schema; |
| 257 |
$schema->storage->txn_begin; |
| 258 |
|
| 259 |
my $builder = t::lib::TestBuilder->new(); |
| 260 |
my $branchcode = $builder->build( { source => 'Branch' } )->{branchcode}; |
| 261 |
my ( $response, $findpatron ); |
| 262 |
my $mocks = create_mocks( \$response, \$findpatron, \$branchcode ); |
| 263 |
my $patron_with_fines = $builder->build( |
| 264 |
{ |
| 265 |
source => 'Borrower', |
| 266 |
value => { |
| 267 |
password => hash_password(PATRON_PW), |
| 268 |
branchcode => $branchcode, |
| 269 |
}, |
| 270 |
} |
| 271 |
); |
| 272 |
|
| 273 |
# SIP2 currency field is limited to 3 chars |
| 274 |
my $currency = substr Koha::Acquisition::Currencies->get_active->currency, |
| 275 |
0, 3; |
| 276 |
|
| 277 |
my $account = Koha::Account->new( { patron_id => $patron_with_fines->{borrowernumber} } ); |
| 278 |
|
| 279 |
my $amount1 = '1.00'; |
| 280 |
my $amount2 = '2.00'; |
| 281 |
my $amount3 = '3.00'; |
| 282 |
|
| 283 |
my $debt1 = $account->add_debit( { type => 'ACCOUNT', amount => $amount1, interface => 'commandline' } ); |
| 284 |
my $debt2 = $account->add_debit( { type => 'ACCOUNT', amount => $amount2, interface => 'commandline' } ); |
| 285 |
my $debt3 = $account->add_debit( { type => 'ACCOUNT', amount => $amount3, interface => 'commandline' } ); |
| 286 |
|
| 287 |
my $cardnum = $patron_with_fines->{cardnumber}; |
| 288 |
my $sip_patron = C4::SIP::ILS::Patron->new($cardnum); |
| 289 |
$findpatron = $sip_patron; |
| 290 |
|
| 291 |
my $siprequest = |
| 292 |
PATRON_INFO |
| 293 |
. 'engYYYYMMDDZZZZHHMMSS' |
| 294 |
. ' Y ' |
| 295 |
. FID_INST_ID |
| 296 |
. $branchcode . '|' |
| 297 |
. FID_PATRON_ID |
| 298 |
. $cardnum . '|' |
| 299 |
. FID_PATRON_PWD |
| 300 |
. PATRON_PW . '|' |
| 301 |
. FID_START_ITEM . '2|' |
| 302 |
. FID_END_ITEM . '3|'; |
| 303 |
my $msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
| 304 |
|
| 305 |
my $server = { ils => $mocks->{ils} }; |
| 306 |
undef $response; |
| 307 |
$msg->handle_patron_info($server); |
| 308 |
|
| 309 |
isnt( $response, undef, 'At least we got a response.' ); |
| 310 |
my $respcode = substr( $response, 0, 2 ); |
| 311 |
is( $respcode, PATRON_INFO_RESP, 'Response code fine' ); |
| 312 |
|
| 313 |
check_field( |
| 314 |
$respcode, $response, FID_CURRENCY, $currency, |
| 315 |
'Verified active currency' |
| 316 |
); |
| 317 |
|
| 318 |
# the following checks apply to fields which can occur several times |
| 319 |
isnt( |
| 320 |
$response =~ /\|${\FID_FINE_ITEMS} $amount1/, |
| 321 |
1, 'Verified fine item 1 is not in response' |
| 322 |
); |
| 323 |
is( |
| 324 |
$response =~ /\|${\FID_FINE_ITEMS}\s$amount2/, |
| 325 |
1, 'Verified fine item 2' |
| 326 |
); |
| 327 |
is( |
| 328 |
$response =~ /\|${\FID_FINE_ITEMS}\s$amount3/, |
| 329 |
1, 'Verified fine item 3' |
| 330 |
); |
| 331 |
|
| 332 |
$schema->storage->txn_rollback; |
| 333 |
}; |
| 334 |
|
| 335 |
|
| 252 |
subtest "Test patron_status_string" => sub { |
336 |
subtest "Test patron_status_string" => sub { |
| 253 |
my $schema = Koha::Database->new->schema; |
337 |
my $schema = Koha::Database->new->schema; |
| 254 |
$schema->storage->txn_begin; |
338 |
$schema->storage->txn_begin; |
| 255 |
- |
|
|