diff options
Diffstat (limited to 'Omni/Task/RaceTest.hs')
| -rw-r--r-- | Omni/Task/RaceTest.hs | 8 |
1 files changed, 2 insertions, 6 deletions
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 |