Bug 20531: Prevent IssueSlip.t to fail randomly

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2018-04-05 16:46:38 -03:00
parent 7a10b66205
commit 45b1dee67e
1 changed files with 2 additions and 0 deletions

View File

@ -20,6 +20,7 @@ use Modern::Perl;
use Test::More tests => 3;
use Test::MockModule;
use Test::MockTime qw( set_fixed_time );
use t::lib::TestBuilder;
use C4::Biblio;
@ -46,6 +47,7 @@ $dbh->do(q|DELETE FROM categories|);
$dbh->do(q|DELETE FROM letter|);
my $builder = t::lib::TestBuilder->new;
set_fixed_time(CORE::time());
my $branchcode = $builder->build({ source => 'Branch' })->{ branchcode };
my $categorycode = $builder->build({ source => 'Category' })->{ categorycode };