diff options
author | joe <joe@jerkface.net> | 2017-01-21 19:38:06 -0500 |
---|---|---|
committer | joe <joe@jerkface.net> | 2017-01-21 19:38:06 -0500 |
commit | 21e1fdde98a2e263bf8dfc34a2545b0635e358c8 (patch) | |
tree | e0452404a8131304f786f58d7ee2a86062a7ebba /tests/Main.hs | |
parent | bff5b058b2caaeef335c2a50032df15fc23568f9 (diff) |
Routing table is idempotent test.
Diffstat (limited to 'tests/Main.hs')
-rw-r--r-- | tests/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Main.hs b/tests/Main.hs index 2f249945..5ed953da 100644 --- a/tests/Main.hs +++ b/tests/Main.hs | |||
@@ -13,7 +13,7 @@ import Text.Printf | |||
13 | import Test.Hspec | 13 | import Test.Hspec |
14 | 14 | ||
15 | import Config | 15 | import Config |
16 | import Spec | 16 | import qualified Spec as Generated |
17 | 17 | ||
18 | 18 | ||
19 | type Command = String | 19 | type Command = String |
@@ -80,7 +80,7 @@ terminateEnv = do | |||
80 | runTestSuite :: [String] -> IO ExitCode | 80 | runTestSuite :: [String] -> IO ExitCode |
81 | runTestSuite args = do | 81 | runTestSuite args = do |
82 | _ <- printf "running hspec test suite with args: %s\n" (show args) | 82 | _ <- printf "running hspec test suite with args: %s\n" (show args) |
83 | catch (withArgs args (hspec spec) >> return ExitSuccess) return | 83 | catch (withArgs args (hspec Generated.spec) >> return ExitSuccess) return |
84 | 84 | ||
85 | withEnv :: EnvOpts -> IO a -> IO a | 85 | withEnv :: EnvOpts -> IO a -> IO a |
86 | withEnv opts action = bracket (setupEnv opts) terminate (const action) | 86 | withEnv opts action = bracket (setupEnv opts) terminate (const action) |