From b78e2cb6c07edd2189548a739b82557e09da291d Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 3 Mar 2022 10:27:20 +0000 Subject: [PATCH] Bug 30203: Circulation.t: prevent locking by setting envvar Running this test without prove is disastrous. The LOCK in the called SendCirculationAlert will ruin your data. But no longer when you apply this patch. Test plan: Run prove Circulation.t Inspect your data (e.g. borrowers table). Run perl Circulation.t Inspect your data (e.g. borrowers table) again. Signed-off-by: Marcel de Rooy Signed-off-by: Martin Renvoize --- t/db_dependent/Circulation.t | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/t/db_dependent/Circulation.t b/t/db_dependent/Circulation.t index 3b0b09b83f..249e8aee1c 100755 --- a/t/db_dependent/Circulation.t +++ b/t/db_dependent/Circulation.t @@ -4904,6 +4904,11 @@ subtest "updateWrongTransfer tests" => sub { subtest "SendCirculationAlert" => sub { plan tests => 2; + # When you would unsuspectingly call this unit test (with perl, not prove), you will be bitten by LOCK. + # LOCK will commit changes and ruin your data + # In order to prevent that, we will add KOHA_TESTING to $ENV; see further Circulation.pm + $ENV{KOHA_TESTING} = 1; + # Setup branch, borrowr, and notice my $library = $builder->build_object({ class => 'Koha::Libraries' }); set_userenv( $library->unblessed); -- 2.20.1