slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib: basic unit test for parseAndFinaliseJournal

Browse Source
This commit is contained in:
Simon Michael 2019-01-15 12:57:51 -08:00
parent 944554557a
commit f1441be404
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hledger-lib/Hledger/Read/JournalReader.hs
View File

@ -66,7 +66,7 @@ import Prelude ()
import "base-compat-batteries" Prelude.Compat hiding (readFile) import "base-compat-batteries" Prelude.Compat hiding (readFile)
import qualified Control.Exception as C import qualified Control.Exception as C
import Control.Monad import Control.Monad
import Control.Monad.Except (ExceptT(..)) import Control.Monad.Except (ExceptT(..), runExceptT)
import Control.Monad.State.Strict import Control.Monad.State.Strict
import Data.Maybe import Data.Maybe
import qualified Data.Map.Strict as M import qualified Data.Map.Strict as M
@ -870,4 +870,12 @@ tests_JournalReader = tests "JournalReader" [
test "empty file" $ expectParseEqE journalp "" nulljournal test "empty file" $ expectParseEqE journalp "" nulljournal
] ]
-- defined here so it can use journalp
,tests "parseAndFinaliseJournal" [
test "basic" $ do
ej <- io $ runExceptT $ parseAndFinaliseJournal journalp definputopts "" "2019-1-1\n"
let Right j = ej
expectEqPP [""] $ journalFilePaths j
]
] ]