|
Lines 20-25
Link Here
|
| 20 |
|
20 |
|
| 21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
| 22 |
use Test::More tests => 18; |
22 |
use Test::More tests => 18; |
|
|
23 |
use Test::MockModule; |
| 23 |
use Test::Warn; |
24 |
use Test::Warn; |
| 24 |
|
25 |
|
| 25 |
use MARC::Record; |
26 |
use MARC::Record; |
|
Lines 56-62
$dbh->{RaiseError} = 1;
Link Here
|
| 56 |
|
57 |
|
| 57 |
$dbh->do(q|DELETE FROM letter|); |
58 |
$dbh->do(q|DELETE FROM letter|); |
| 58 |
|
59 |
|
| 59 |
my $date = dt_from_string; |
60 |
my $now_value = DateTime->now(); |
|
|
61 |
my $mocked_datetime = Test::MockModule->new('DateTime'); |
| 62 |
$mocked_datetime->mock( 'now', sub { return $now_value->clone; } ); |
| 60 |
|
63 |
|
| 61 |
my $library = $builder->build( { source => 'Branch' } ); |
64 |
my $library = $builder->build( { source => 'Branch' } ); |
| 62 |
my $patron = $builder->build( { source => 'Borrower' } ); |
65 |
my $patron = $builder->build( { source => 'Borrower' } ); |
| 63 |
- |
|
|