2 # block_patron: test Block Patron Response
8 use Sip
::Constants
qw(:all);
10 use SIPtest
qw(:basic :user1);
12 my $block_patron_test_template = {
13 id
=> 'Block Patron: valid patron, card not retained',
14 msg
=> "01N20060102 084238AO$instid|ALThis card is blocked.|AA$user_barcode|AC$password|",
15 # response to block patron is a patron status message
16 pat
=> qr/^24Y[ Y]{13}000$datepat/,
18 $SIPtest::field_specs
{(FID_INST_ID
)},
19 $SIPtest::field_specs
{(FID_SCREEN_MSG
)},
20 $SIPtest::field_specs
{(FID_PRINT_LINE
)},
21 { field
=> FID_PATRON_ID
,
22 pat
=> qr/^$user_barcode$/o,
24 { field
=> FID_PERSONAL_NAME
,
25 pat
=> qr/^$user_fullname$/o,
27 { field
=> FID_VALID_PATRON
,
29 # Not required by the spec, but by the test
31 $SIPtest::field_specs
{(FID_CURRENCY
)},
32 { field
=> FID_FEE_AMT
,
39 $SIPtest::sc_status_test
,
40 clone
($block_patron_test_template),
43 SIPtest
::run_sip_tests
(@tests);