From 45b1dee67e5fd771adbb30e9cac352b8a0c6ab40 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 5 Apr 2018 16:46:38 -0300 Subject: [PATCH 1/1] Bug 20531: Prevent IssueSlip.t to fail randomly Signed-off-by: Jonathan Druart --- t/db_dependent/Members/IssueSlip.t | 2 ++ 1 file changed, 2 insertions(+) diff --git a/t/db_dependent/Members/IssueSlip.t b/t/db_dependent/Members/IssueSlip.t index 4ef7e27ae9..a88772929e 100644 --- a/t/db_dependent/Members/IssueSlip.t +++ b/t/db_dependent/Members/IssueSlip.t @@ -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 }; -- 2.11.0