From 21e1fdde98a2e263bf8dfc34a2545b0635e358c8 Mon Sep 17 00:00:00 2001 From: joe Date: Sat, 21 Jan 2017 19:38:06 -0500 Subject: Routing table is idempotent test. --- tests/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/Main.hs') 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 import Test.Hspec import Config -import Spec +import qualified Spec as Generated type Command = String @@ -80,7 +80,7 @@ terminateEnv = do runTestSuite :: [String] -> IO ExitCode runTestSuite args = do _ <- printf "running hspec test suite with args: %s\n" (show args) - catch (withArgs args (hspec spec) >> return ExitSuccess) return + catch (withArgs args (hspec Generated.spec) >> return ExitSuccess) return withEnv :: EnvOpts -> IO a -> IO a withEnv opts action = bracket (setupEnv opts) terminate (const action) -- cgit v1.2.3