diff options
Diffstat (limited to 'Omni/Task.hs')
| -rw-r--r-- | Omni/Task.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Omni/Task.hs b/Omni/Task.hs index 9cb061c..83b8e0d 100644 --- a/Omni/Task.hs +++ b/Omni/Task.hs @@ -19,7 +19,7 @@ import Omni.Task.Core import qualified Omni.Task.RaceTest as RaceTest import qualified Omni.Test as Test import qualified System.Console.Docopt as Docopt -import System.Directory (doesFileExist, removeFile) +import System.Directory (createDirectoryIfMissing, doesFileExist, removeFile) import System.Environment (setEnv) import qualified Test.Tasty as Tasty import Prelude (read) @@ -403,11 +403,12 @@ unitTests = Test.group "Unit tests" [ Test.unit "setup test database" <| do - -- Set up test mode for all tests + -- Set up test mode for all tests (uses _/tmp/tasks-test.db) setEnv "TASK_TEST_MODE" "1" -- Clean up test database before all tests - let testFile = ".tasks/tasks-test.db" + let testFile = "_/tmp/tasks-test.db" + createDirectoryIfMissing True "_/tmp" exists <- doesFileExist testFile when exists <| removeFile testFile initTaskDb |