3 # patron_status: check status of valid patron and invalid patron
10 use C4::SIP::Sip::Constants qw(:all);
11 use SIPtest
qw($datepat $instid $currency :user1);
15 $SIPtest::sc_status_test,
16 { id => 'valid Patron Status',
17 msg => "2300120060101 084237AO$instid|AA$user_barcode|AD$user_pin|AC|",
18 pat => qr/^24 [ Y]{13}\d{3}$datepat/,
20 $SIPtest::field_specs{(FID_INST_ID)},
21 $SIPtest::field_specs{(FID_SCREEN_MSG)},
22 $SIPtest::field_specs{(FID_PRINT_LINE)},
23 { field => FID_PERSONAL_NAME,
24 pat => qr/^$user_fullname$/o,
26 { field => FID_PATRON_ID,
27 pat => qr/^$user_barcode/o,
29 { field => FID_VALID_PATRON,
32 { field => FID_VALID_PATRON_PWD,
35 { field => FID_CURRENCY,
36 pat => qr/^$currency$/io,
38 { field => FID_FEE_AMT,
42 { id => 'invalid password Patron Status',
43 msg => "2300120060101 084237AO$instid|AA$user_barcode|AC|ADbadw|",
44 pat => qr/^24[ Y]{14}\d{3}$datepat/,
46 { field => FID_PERSONAL_NAME,
47 pat => qr/^$user_fullname$/o,
49 { field => FID_PATRON_ID,
50 pat => qr/^$user_barcode$/o,
52 { field => FID_INST_ID,
53 pat => qr/^$instid$/o,
55 { field => FID_VALID_PATRON_PWD,
58 { field => FID_VALID_PATRON,
62 { id => 'invalid Patron Status',
63 msg => "2300120060101 084237AO$instid|AAwshakespeare|AC|",
64 pat => qr/^24Y[ Y]{13}\d{3}$datepat/,
66 { field => FID_PERSONAL_NAME,
69 { field => FID_PATRON_ID,
70 pat => qr/^wshakespeare$/,
72 { field => FID_INST_ID,
73 pat => qr/^$instid$/o,
78 SIPtest::run_sip_tests(@tests);