koha-dev.rot13.org Git - srvgit/blob - t/db_dependent/Circulation/IssuingRules/maxsuspensiondays.t

   1 use Modern::Perl;
   2 use Test::More tests => 2;
   3
   4 use MARC::Record;
   5 use MARC::Field;
   6 use C4::Context;
   7
   8 use C4::Biblio qw( AddBiblio );
   9 use C4::Circulation qw( AddIssue AddReturn );
  10 use C4::Items qw( AddItem );
  11 use C4::Members qw( AddMember GetMember );
  12 use Koha::Database;
  13 use Koha::DateUtils;
  14 use Koha::Patron::Debarments qw( GetDebarments DelDebarment );
  15
  16 use t::lib::TestBuilder;
  17
  18 my $schema = Koha::Database->schema;
  19 $schema->storage->txn_begin;
  20 my $builder = t::lib::TestBuilder->new;
  21 my $dbh = C4::Context->dbh;
  22 $dbh->{RaiseError} = 1;
  23
  24 my $branchcode = $builder->build({ source => 'Branch' })->{branchcode};
  25 my $itemtype   = $builder->build({ source => 'Itemtype' })->{itemtype};
  26 my $patron_category = $builder->build({ source => 'Category' });
  27
  28 local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };
  29 my $userenv->{branch} = $branchcode;
  30 *C4::Context::userenv = \&Mock_userenv;
  31
  32 # Test without maxsuspensiondays set
  33 Koha::IssuingRules->search->delete;
  34 $builder->build(
  35     {
  36         source => 'Issuingrule',
  37         value  => {
  38             categorycode => '*',
  39             itemtype     => '*',
  40             branchcode   => '*',
  41             firstremind  => 0,
  42             finedays     => 2,
  43             lengthunit   => 'days',
  44         }
  45     }
  46 );
  47
  48 my $borrowernumber = AddMember(
  49     firstname =>  'my firstname',
  50     surname => 'my surname',
  51     categorycode => $patron_category->{categorycode},
  52     branchcode => $branchcode,
  53 );
  54 my $borrower = GetMember( borrowernumber => $borrowernumber );
  55
  56 my $record = MARC::Record->new();
  57 $record->append_fields(
  58     MARC::Field->new('100', ' ', ' ', a => 'My author'),
  59     MARC::Field->new('245', ' ', ' ', a => 'My title'),
  60 );
  61
  62 my $barcode = 'bc_maxsuspensiondays';
  63 my ($biblionumber, $biblioitemnumber) = AddBiblio($record, '');
  64 my (undef, undef, $itemnumber) = AddItem({
  65         homebranch => $branchcode,
  66         holdingbranch => $branchcode,
  67         barcode => $barcode,
  68         itype => $itemtype
  69     } , $biblionumber);
  70
  71 # clear any holidays to avoid throwing off the suspension day
  72 # calculations
  73 $dbh->do('DELETE FROM special_holidays');
  74 $dbh->do('DELETE FROM repeatable_holidays');
  75
  76 my $daysago20 = dt_from_string->add_duration(DateTime::Duration->new(days => -20));
  77 my $daysafter40 = dt_from_string->add_duration(DateTime::Duration->new(days => 40));
  78
  79 AddIssue( $borrower, $barcode, $daysago20 );
  80 AddReturn( $barcode, $branchcode );
  81 my $debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}});
  82 is(
  83     $debarments->[0]->{expiration},
  84     output_pref({ dt => $daysafter40, dateformat => 'iso', dateonly => 1 }),
  85     'calculate suspension with no maximum set'
  86 );
  87 DelDebarment( $debarments->[0]->{borrower_debarment_id} );
  88
  89 # Test with maxsuspensiondays = 10 days
  90 my $issuing_rule = Koha::IssuingRules->search->next;
  91 $issuing_rule->maxsuspensiondays( 10 )->store;
  92
  93 my $daysafter10 = dt_from_string->add_duration(DateTime::Duration->new(days => 10));
  94 AddIssue( $borrower, $barcode, $daysago20 );
  95 AddReturn( $barcode, $branchcode );
  96 $debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}});
  97 is(
  98     $debarments->[0]->{expiration},
  99     output_pref({ dt => $daysafter10, dateformat => 'iso', dateonly => 1 }),
 100     'calculate suspension with a maximum set'
 101 );
 102 DelDebarment( $debarments->[0]->{borrower_debarment_id} );
 103
 104 $schema->storage->txn_rollback;
 105
 106 # C4::Context->userenv
 107 sub Mock_userenv {
 108     return $userenv;
 109 }