C4/SIP/t/11item_info.t

   1 #!/usr/bin/perl
   2 # Item Information test
   3
   4 use strict;
   5 use warnings;
   6 use FindBin qw($Bin);
   7 use lib "$Bin";
   8 use Clone qw(clone);
   9
  10 use C4::SIP::Sip::Constants qw(:all);
  11 use SIPtest qw(:basic :user1 :item1);
  12
  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'
  17         fields => [
  18                 $SIPtest::field_specs{(FID_SCREEN_MSG)},
  19                 $SIPtest::field_specs{(FID_PRINT_LINE)},
  20                 { field    => FID_ITEM_ID,
  21                   pat      => qr/^$item_barcode$/,
  22                   required => 1, },
  23                 { field    => FID_TITLE_ID,
  24                   pat      => qr/^$item_title\s*$/,
  25                   required => 1, },
  26                 { field    => FID_MEDIA_TYPE,
  27                   pat      => qr/^\d{3}$/,
  28                   required => 0, },
  29                 { field    => FID_OWNER,
  30                   pat      => qr/^$item_owner$/,
  31                   required => 0, },
  32         ],
  33 };
  34
  35 my @tests = (
  36         $SIPtest::login_test,
  37         $SIPtest::sc_status_test,
  38         $item_info_test_template,
  39 );
  40
  41 SIPtest::run_sip_tests(@tests);
  42
  43 1;