Lines 10-15
use Koha::DateUtils;
Link Here
|
10 |
use DateTime::Duration; |
10 |
use DateTime::Duration; |
11 |
|
11 |
|
12 |
use Test::More tests => 19; |
12 |
use Test::More tests => 19; |
|
|
13 |
use Test::Deep; |
13 |
|
14 |
|
14 |
BEGIN { |
15 |
BEGIN { |
15 |
use_ok('C4::Circulation'); |
16 |
use_ok('C4::Circulation'); |
Lines 140-152
is(CreateBranchTransferLimit(undef,$samplebranch2->{branchcode}),undef,
Link Here
|
140 |
#is(CreateBranchTransferLimit(-1,-1,'CODE'),0,"With wrong CreateBranchTransferLimit returns 0 - No transfertlimit added"); |
141 |
#is(CreateBranchTransferLimit(-1,-1,'CODE'),0,"With wrong CreateBranchTransferLimit returns 0 - No transfertlimit added"); |
141 |
|
142 |
|
142 |
#Test GetTransfers |
143 |
#Test GetTransfers |
143 |
my $dt_today = dt_from_string( undef, 'sql', undef ); |
|
|
144 |
my $today = $dt_today->strftime("%Y-%m-%d %H:%M:%S"); |
145 |
|
146 |
my @transfers = GetTransfers($item_id1); |
144 |
my @transfers = GetTransfers($item_id1); |
147 |
is_deeply( |
145 |
cmp_deeply( |
148 |
\@transfers, |
146 |
\@transfers, |
149 |
[ $today, $samplebranch1->{branchcode}, $samplebranch2->{branchcode} ], |
147 |
[ re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'), $samplebranch1->{branchcode}, $samplebranch2->{branchcode} ], |
150 |
"Transfers of the item1" |
148 |
"Transfers of the item1" |
151 |
); #NOTE: Only the first transfer is returned |
149 |
); #NOTE: Only the first transfer is returned |
152 |
@transfers = GetTransfers; |
150 |
@transfers = GetTransfers; |
Lines 159-175
is_deeply( \@transfers, [],
Link Here
|
159 |
#Test GetTransfersFromTo |
157 |
#Test GetTransfersFromTo |
160 |
my @transferfrom1to2 = GetTransfersFromTo( $samplebranch1->{branchcode}, |
158 |
my @transferfrom1to2 = GetTransfersFromTo( $samplebranch1->{branchcode}, |
161 |
$samplebranch2->{branchcode} ); |
159 |
$samplebranch2->{branchcode} ); |
162 |
is_deeply( |
160 |
cmp_deeply( |
163 |
\@transferfrom1to2, |
161 |
\@transferfrom1to2, |
164 |
[ |
162 |
[ |
165 |
{ |
163 |
{ |
166 |
itemnumber => $item_id1, |
164 |
itemnumber => $item_id1, |
167 |
datesent => $today, |
165 |
datesent => re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'), |
168 |
frombranch => $samplebranch1->{branchcode} |
166 |
frombranch => $samplebranch1->{branchcode} |
169 |
}, |
167 |
}, |
170 |
{ |
168 |
{ |
171 |
itemnumber => $item_id2, |
169 |
itemnumber => $item_id2, |
172 |
datesent => $today, |
170 |
datesent => re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'), |
173 |
frombranch => $samplebranch1->{branchcode} |
171 |
frombranch => $samplebranch1->{branchcode} |
174 |
} |
172 |
} |
175 |
], |
173 |
], |
176 |
- |
|
|