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

parse zero-length input as an empty ledger

Browse Source
This commit is contained in:
Simon Michael 2009-04-10 05:42:26 +00:00
parent 69ce8b9a8e
commit 1085d476f1
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Ledger/Parse.hs
View File

@ -85,9 +85,9 @@ parseLedger reftime inname intxt = do
ledgerFile :: GenParser Char LedgerFileCtx (ErrorT String IO (RawLedger -> RawLedger)) ledgerFile :: GenParser Char LedgerFileCtx (ErrorT String IO (RawLedger -> RawLedger))
ledgerFile = do items <- many1 ledgerItem ledgerFile = do items <- many ledgerItem
eof eof
return $ liftM (foldr1 (.)) $ sequence items return $ liftM (foldr (.) id) $ sequence items
where where
-- As all ledger line types can be distinguished by the first -- As all ledger line types can be distinguished by the first
-- character, excepting transactions versus empty (blank or -- character, excepting transactions versus empty (blank or

14
Tests.hs
View File

@ -558,6 +558,15 @@ tests = [
(ltdate $ head $ ledger_txns rl) `is` fromGregorian 2009 1 1 (ltdate $ head $ ledger_txns rl) `is` fromGregorian 2009 1 1
return () return ()
,"ledgerFile" ~: do
let now = getCurrentLocalTime
assertBool "ledgerFile should parse an empty file" $ (isRight $ parseWithCtx ledgerFile "")
r <- rawLedgerFromString "" -- don't know how to get it from ledgerFile
assertBool "ledgerFile parsing an empty file should give an empty ledger" $ null $ ledger_txns r
,"ledgerHistoricalPrice" ~: do
parseWithCtx ledgerHistoricalPrice price1_str `parseis` price1
,"ledgerTransaction" ~: do ,"ledgerTransaction" ~: do
parseWithCtx ledgerTransaction entry1_str `parseis` entry1 parseWithCtx ledgerTransaction entry1_str `parseis` entry1
assertBool "ledgerTransaction should not parse just a date" assertBool "ledgerTransaction should not parse just a date"
@ -566,10 +575,7 @@ tests = [
$ isLeft $ parseWithCtx ledgerTransaction "2009/1/1 a\n" $ isLeft $ parseWithCtx ledgerTransaction "2009/1/1 a\n"
let t = parseWithCtx ledgerTransaction "2009/1/1 a ;comment\n b 1\n" let t = parseWithCtx ledgerTransaction "2009/1/1 a ;comment\n b 1\n"
assertBool "ledgerTransaction should not include a comment in the description" assertBool "ledgerTransaction should not include a comment in the description"
$ either (const False) ((== "a") . ltdescription) p $ either (const False) ((== "a") . ltdescription) t
,"ledgerHistoricalPrice" ~: do
parseWithCtx ledgerHistoricalPrice price1_str `parseis` price1
,"ledgerposting" ~: do ,"ledgerposting" ~: do
parseWithCtx ledgerposting rawposting1_str `parseis` rawposting1 parseWithCtx ledgerposting rawposting1_str `parseis` rawposting1