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