2 use Test::More tests => 2;
9 use C4::Biblio qw( AddBiblio );
10 use C4::Circulation qw( AddIssue AddReturn );
11 use C4::Items qw( AddItem );
12 use C4::Members qw( AddMember GetMember );
15 use Koha::Borrower::Debarments qw( GetDebarments DelDebarment );
17 use t::lib::TestBuilder;
19 my $schema = Koha::Database->schema;
20 $schema->storage->txn_begin;
21 my $builder = t::lib::TestBuilder->new;
22 my $dbh = C4::Context->dbh;
23 $dbh->{RaiseError} = 1;
25 my $library = $builder->build({
29 my $branchcode = $library->{branchcode};
30 local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };
31 my $userenv->{branch} = $branchcode;
32 *C4::Context::userenv = \&Mock_userenv;
34 my $circulation_module = Test::MockModule->new('C4::Circulation');
36 # Test without maxsuspensiondays set
37 $circulation_module->mock('GetIssuingRule', sub {
45 my $borrowernumber = AddMember(
46 firstname => 'my firstname',
47 surname => 'my surname',
49 branchcode => $branchcode,
51 my $borrower = GetMember( borrowernumber => $borrowernumber );
53 my $record = MARC::Record->new();
54 $record->append_fields(
55 MARC::Field->new('100', ' ', ' ', a => 'My author'),
56 MARC::Field->new('245', ' ', ' ', a => 'My title'),
59 my $barcode = 'bc_maxsuspensiondays';
60 my ($biblionumber, $biblioitemnumber) = AddBiblio($record, '');
61 my (undef, undef, $itemnumber) = AddItem({
62 homebranch => $branchcode,
63 holdingbranch => $branchcode,
67 # clear any holidays to avoid throwing off the suspension day
69 $dbh->do('DELETE FROM special_holidays');
70 $dbh->do('DELETE FROM repeatable_holidays');
72 my $daysago20 = dt_from_string->add_duration(DateTime::Duration->new(days => -20));
73 my $daysafter40 = dt_from_string->add_duration(DateTime::Duration->new(days => 40));
75 AddIssue( $borrower, $barcode, $daysago20 );
76 AddReturn( $barcode, $branchcode );
77 my $debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}});
79 $debarments->[0]->{expiration},
80 output_pref({ dt => $daysafter40, dateformat => 'iso', dateonly => 1 }),
81 'calculate suspension with no maximum set'
83 DelDebarment( $debarments->[0]->{borrower_debarment_id} );
85 # Test with maxsuspensiondays = 10 days
86 $circulation_module->mock('GetIssuingRule', sub {
90 maxsuspensiondays => 10,
94 my $daysafter10 = dt_from_string->add_duration(DateTime::Duration->new(days => 10));
95 AddIssue( $borrower, $barcode, $daysago20 );
96 AddReturn( $barcode, $branchcode );
97 $debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}});
99 $debarments->[0]->{expiration},
100 output_pref({ dt => $daysafter10, dateformat => 'iso', dateonly => 1 }),
101 'calculate suspension with a maximum set'
103 DelDebarment( $debarments->[0]->{borrower_debarment_id} );
106 # C4::Context->userenv