diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-09-26 11:35:17 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | 73ae65e04f7c41dd676d3cbaf3885553352f688c (patch) | |
| tree | 4f59a4a6163e9948b8fffd06fc70fc3fba090960 /test/TestUtils.hs | |
| parent | 158b202ba113914a8aa1fc7a8a410d98bfb18f5b (diff) | |
Add e2e tests
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 = |