diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Main.hs | 3 | ||||
-rw-r--r-- | tests/Spec.hs | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/tests/Main.hs b/tests/Main.hs index 6577e6f4..75321ec7 100644 --- a/tests/Main.hs +++ b/tests/Main.hs | |||
@@ -10,6 +10,7 @@ import System.Environment | |||
10 | import System.Process | 10 | import System.Process |
11 | import System.Directory | 11 | import System.Directory |
12 | import Text.Printf | 12 | import Text.Printf |
13 | import Test.Hspec | ||
13 | 14 | ||
14 | import Config | 15 | import Config |
15 | import Spec | 16 | import Spec |
@@ -64,7 +65,7 @@ terminateEnv = do | |||
64 | runTestSuite :: [String] -> IO ExitCode | 65 | runTestSuite :: [String] -> IO ExitCode |
65 | runTestSuite args = do | 66 | runTestSuite args = do |
66 | printf "running hspec test suite with args: %s\n" (show args) | 67 | printf "running hspec test suite with args: %s\n" (show args) |
67 | catch (withArgs args hspecMain >> return ExitSuccess) return | 68 | catch (withArgs args (hspec spec) >> return ExitSuccess) return |
68 | 69 | ||
69 | main :: IO () | 70 | main :: IO () |
70 | main = do | 71 | main = do |
diff --git a/tests/Spec.hs b/tests/Spec.hs index 8d2b5139..b4e92e75 100644 --- a/tests/Spec.hs +++ b/tests/Spec.hs | |||
@@ -1 +1 @@ | |||
{-# OPTIONS_GHC -F -pgmF hspec-discover -optF --hook-main #-} | {-# OPTIONS_GHC -F -pgmF hspec-discover -optF --no-main #-} | ||