3 # patron_status: check status of valid patron and invalid patron
8 use Sip::Constants qw(:all);
9 use SIPtest qw($datepat $instid $currency :user1);
13 $SIPtest::sc_status_test,
14 { id => 'valid Patron Status',
15 msg => "2300120060101 084237AO$instid|AA$user_barcode|AD$user_pin|AC|",
16 pat => qr/^24 [ Y]{13}\d{3}$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_PERSONAL_NAME,
22 pat => qr/^$user_fullname$/o,
24 { field => FID_PATRON_ID,
25 pat => qr/^$user_barcode/o,
27 { field => FID_VALID_PATRON,
30 { field => FID_VALID_PATRON_PWD,
33 { field => FID_CURRENCY,
34 pat => qr/^$currency$/io,
36 { field => FID_FEE_AMT,
40 { id => 'invalid password Patron Status',
41 msg => "2300120060101 084237AO$instid|AA$user_barcode|AC|ADbadw|",
42 pat => qr/^24[ Y]{14}\d{3}$datepat/,
44 { field => FID_PERSONAL_NAME,
45 pat => qr/^$user_fullname$/o,
47 { field => FID_PATRON_ID,
48 pat => qr/^$user_barcode$/o,
50 { field => FID_INST_ID,
51 pat => qr/^$instid$/o,
53 { field => FID_VALID_PATRON_PWD,
56 { field => FID_VALID_PATRON,
60 { id => 'invalid Patron Status',
61 msg => "2300120060101 084237AO$instid|AAwshakespeare|AC|",
62 pat => qr/^24Y[ Y]{13}\d{3}$datepat/,
64 { field => FID_PERSONAL_NAME,
67 { field => FID_PATRON_ID,
68 pat => qr/^wshakespeare$/,
70 { field => FID_INST_ID,
71 pat => qr/^$instid$/o,
76 SIPtest::run_sip_tests(@tests);