|
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-133
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 |
- |
|
|