2 # renew_all: test Renew All Response
8 use Sip::Constants qw(:all);
10 use SIPtest qw($datepat $textpat $instid $currency $user_barcode
11 $item_barcode $item_title $item_owner);
13 my $item_info_test_template = {
14 id => 'Item Information: check information for available item',
15 msg => "1720060110 215612AO$instid|AB$item_barcode|",
16 pat => qr/^180[13]0201$datepat/, # status of 'other' or 'available'
18 $SIPtest::field_specs{(FID_SCREEN_MSG)},
19 $SIPtest::field_specs{(FID_PRINT_LINE)},
20 { field => FID_ITEM_ID,
21 pat => qr/^$item_barcode$/,
23 { field => FID_TITLE_ID,
24 pat => qr/^$item_title\s*$/,
26 { field => FID_MEDIA_TYPE,
30 pat => qr/^$item_owner$/,
36 $SIPtest::sc_status_test,
37 clone($item_info_test_template),
40 SIPtest::run_sip_tests(@tests);