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);