|
Lines 18-23
Link Here
|
| 18 |
|
18 |
|
| 19 |
use Modern::Perl; |
19 |
use Modern::Perl; |
| 20 |
|
20 |
|
|
|
21 |
use Data::Dumper; # REMOVEME with diag |
| 21 |
use Test::More tests => 3; |
22 |
use Test::More tests => 3; |
| 22 |
use Test::MockModule; |
23 |
use Test::MockModule; |
| 23 |
use Test::MockTime qw( set_fixed_time ); |
24 |
use Test::MockTime qw( set_fixed_time ); |
|
Lines 242-248
Overdues:
Link Here
|
| 242 |
|
243 |
|
| 243 |
EOS |
244 |
EOS |
| 244 |
$slip = IssueSlip( $branchcode, $borrowernumber ); |
245 |
$slip = IssueSlip( $branchcode, $borrowernumber ); |
| 245 |
is( $slip->{content}, $expected_slip, 'IssueSlip should return a slip with 2 checkouts' ); |
246 |
is( $slip->{content}, $expected_slip, 'IssueSlip should return a slip with 2 checkouts' ) |
|
|
247 |
or diag(Dumper(Koha::Checkouts->search({borrowernumber => $borrower->{borrowernumber}})->unblessed)); |
| 246 |
|
248 |
|
| 247 |
AddReturn( $barcode1, $branchcode ); |
249 |
AddReturn( $barcode1, $branchcode ); |
| 248 |
AddReturn( $barcode2, $branchcode ); |
250 |
AddReturn( $barcode2, $branchcode ); |
| 249 |
- |
|
|