summaryrefslogtreecommitdiff
path: root/tests/Main.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2017-01-21 19:38:06 -0500
committerjoe <joe@jerkface.net>2017-01-21 19:38:06 -0500
commit21e1fdde98a2e263bf8dfc34a2545b0635e358c8 (patch)
treee0452404a8131304f786f58d7ee2a86062a7ebba /tests/Main.hs
parentbff5b058b2caaeef335c2a50032df15fc23568f9 (diff)
Routing table is idempotent test.
Diffstat (limited to 'tests/Main.hs')
-rw-r--r--tests/Main.hs4
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
13import Test.Hspec 13import Test.Hspec
14 14
15import Config 15import Config
16import Spec 16import qualified Spec as Generated
17 17
18 18
19type Command = String 19type Command = String
@@ -80,7 +80,7 @@ terminateEnv = do
80runTestSuite :: [String] -> IO ExitCode 80runTestSuite :: [String] -> IO ExitCode
81runTestSuite args = do 81runTestSuite 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
85withEnv :: EnvOpts -> IO a -> IO a 85withEnv :: EnvOpts -> IO a -> IO a
86withEnv opts action = bracket (setupEnv opts) terminate (const action) 86withEnv opts action = bracket (setupEnv opts) terminate (const action)