diff options
Diffstat (limited to 'test/TestUtils.hs')
| -rw-r--r-- | test/TestUtils.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/test/TestUtils.hs b/test/TestUtils.hs index 676df1d..ad31c78 100644 --- a/test/TestUtils.hs +++ b/test/TestUtils.hs @@ -1,19 +1,17 @@ {-# OPTIONS_GHC -Wno-missing-export-lists #-} module TestUtils where -import Control.Monad.Except -import Control.Monad.Reader import Utils -initialConfig :: Config -initialConfig = Config { +testConfig :: Config +testConfig = Config { configScriptFileName = Nothing, configVerboseMode = False, configShowHelp = False } testRunL :: LContext a -> IO (Either LException a) -testRunL lc = runExceptT $ runReaderT lc initialConfig +testRunL = runL testConfig expectSuccessL :: LContext a -> IO a expectSuccessL lc = |