C4/SIP/t/01patron_status.t

   1 #!/usr/bin/perl
   2 #
   3 # patron_status: check status of valid patron and invalid patron
   4
   5 use strict;
   6 use warnings;
   7 use FindBin qw($Bin);
   8 use lib "$Bin";
   9
  10 use C4::SIP::Sip::Constants qw(:all);
  11 use SIPtest qw($datepat $instid $currency :user1);
  12
  13 my @tests = (
  14              $SIPtest::login_test,
  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/,
  19                fields => [
  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,
  25                             required => 1, },
  26                           { field    => FID_PATRON_ID,
  27                             pat      => qr/^$user_barcode/o,
  28                             required => 1, },
  29                           { field    => FID_VALID_PATRON,
  30                             pat      => qr/^Y$/,
  31                             required => 0, },
  32                           { field    => FID_VALID_PATRON_PWD,
  33                             pat      => qr/^Y$/,
  34                             required => 0, },
  35                           { field    => FID_CURRENCY,
  36                             pat      => qr/^$currency$/io,
  37                             required => 0, },
  38                           { field    => FID_FEE_AMT,
  39                             pat      => qr/^[0-9.]+$/,
  40                             required => 0, },
  41                           ], },
  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/,
  45                fields => [
  46                           { field    => FID_PERSONAL_NAME,
  47                             pat      => qr/^$user_fullname$/o,
  48                             required => 1, },
  49                           { field    => FID_PATRON_ID,
  50                             pat      => qr/^$user_barcode$/o,
  51                             required => 1, },
  52                           { field    => FID_INST_ID,
  53                             pat      => qr/^$instid$/o,
  54                             required => 1, },
  55                           { field    => FID_VALID_PATRON_PWD,
  56                             pat      => qr/^N$/,
  57                             required => 1, },
  58                           { field    => FID_VALID_PATRON,
  59                             pat      => qr/^Y$/,
  60                             required => 1, },
  61                           ], },
  62              { id => 'invalid Patron Status',
  63                msg => "2300120060101    084237AO$instid|AAwshakespeare|AC|",
  64                pat => qr/^24Y[ Y]{13}\d{3}$datepat/,
  65                fields => [
  66                           { field    => FID_PERSONAL_NAME,
  67                             pat      => qr/^$/,
  68                             required => 1, },
  69                           { field    => FID_PATRON_ID,
  70                             pat      => qr/^wshakespeare$/,
  71                             required => 1, },
  72                           { field    => FID_INST_ID,
  73                             pat      => qr/^$instid$/o,
  74                             required => 1, },
  75                           ], },
  76              );
  77
  78          SIPtest::run_sip_tests(@tests);
  79
  80 1;