2 # Item Information test
10 use C4
::SIP
::Sip
::Constants
qw(:all);
11 use SIPtest
qw(:basic :user1 :item1);
13 my $item_info_test_template = {
14 id
=> "Item Information: check info for available item ($item_barcode)",
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$/,
37 $SIPtest::sc_status_test
,
38 $item_info_test_template,
41 SIPtest
::run_sip_tests
(@tests);