From 32e5b5b097c50d0b1d8a3dbcf93163aabf1ee8fb Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 26 Nov 2025 09:40:59 -0500 Subject: Fix test database isolation: TASK_TEST_MODE takes precedence Tests were polluting production database because TASK_DB_PATH took precedence over TASK_TEST_MODE. Now test mode always uses .tasks/tasks-test.db regardless of TASK_DB_PATH setting. --- Omni/Task/RaceTest.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'Omni/Task/RaceTest.hs') diff --git a/Omni/Task/RaceTest.hs b/Omni/Task/RaceTest.hs index 860272d..5dd7fa1 100644 --- a/Omni/Task/RaceTest.hs +++ b/Omni/Task/RaceTest.hs @@ -18,15 +18,11 @@ test = Test.group "Omni.Task.Race" [raceTest] raceTest :: Test.Tree raceTest = Test.unit "concurrent child creation (race condition)" <| do - -- Set up test mode + -- Set up test mode (uses .tasks/tasks-test.db) setEnv "TASK_TEST_MODE" "1" - -- Unset TASK_DB_PATH to ensure we use the test mode default (or set it to .tasks/race-test.db) - -- Actually, since Core.hs respects TASK_DB_PATH if set, we should unset it or set it to our target. - -- Let's set it to .tasks/race-test.db for isolation. - setEnv "TASK_DB_PATH" ".tasks/race-test.db" -- Clean up test database - let testFile = ".tasks/race-test.db" + let testFile = ".tasks/tasks-test.db" exists <- doesFileExist testFile when exists <| removeFile testFile initTaskDb -- cgit v1.2.3