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