Lines 1-5
Link Here
|
1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
2 |
use Test::More tests => 3; |
2 |
use Test::More tests => 5; |
3 |
|
3 |
|
4 |
use MARC::Record; |
4 |
use MARC::Record; |
5 |
use MARC::Field; |
5 |
use MARC::Field; |
Lines 119-125
$builder->build(
Link Here
|
119 |
} |
119 |
} |
120 |
); |
120 |
); |
121 |
|
121 |
|
122 |
$daysafter10 = dt_from_string->add_duration(DateTime::Duration->new(days => 10)); |
|
|
123 |
AddIssue( $borrower, $barcode, $daysago20 ); |
122 |
AddIssue( $borrower, $barcode, $daysago20 ); |
124 |
AddReturn( $barcode, $branchcode ); |
123 |
AddReturn( $barcode, $branchcode ); |
125 |
$debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}}); |
124 |
$debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}}); |
Lines 130-135
is(
Link Here
|
130 |
); |
129 |
); |
131 |
DelDebarment( $debarments->[0]->{borrower_debarment_id} ); |
130 |
DelDebarment( $debarments->[0]->{borrower_debarment_id} ); |
132 |
|
131 |
|
|
|
132 |
my $yesterday = dt_from_string->subtract_duration(DateTime::Duration->new( days => 1 )); |
133 |
my $daysafter2 = dt_from_string->add_duration(DateTime::Duration->new( days => 2 )); |
134 |
AddIssue( $borrower, $barcode, $yesterday); |
135 |
AddReturn( $barcode, $branchcode ); |
136 |
$debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}}); |
137 |
is( |
138 |
$debarments->[0]->{expiration}, |
139 |
output_pref({ dt => $daysafter2, dateformat => 'iso', dateonly => 1 }), |
140 |
'calculate suspension with lengthunit hours.' |
141 |
); |
142 |
DelDebarment( $debarments->[0]->{borrower_debarment_id} ); |
143 |
|
144 |
my $hoursago2= dt_from_string->subtract_duration(DateTime::Duration->new(hours => 2)); |
145 |
AddIssue( $borrower, $barcode, $hoursago2); |
146 |
AddReturn( $barcode, $branchcode ); |
147 |
$debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}}); |
148 |
is( |
149 |
$debarments->[0]->{expiration}, |
150 |
output_pref({ dt => $daysafter2, dateformat => 'iso', dateonly => 1 }), |
151 |
'calculate suspension with lengthunit hours.' |
152 |
); |
153 |
DelDebarment( $debarments->[0]->{borrower_debarment_id} ); |
154 |
|
133 |
$schema->storage->txn_rollback; |
155 |
$schema->storage->txn_rollback; |
134 |
|
156 |
|
135 |
# C4::Context->userenv |
157 |
# C4::Context->userenv |
136 |
- |
|
|