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

more tests

Browse Source
This commit is contained in:
Simon Michael 2007-01-28 10:16:13 +00:00
parent e4bfce8d21
commit 34ca154cd9
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
hledger.hs
View File

@ -2,6 +2,7 @@
-- GPLv3, (c) Simon Michael & contributors, -- GPLv3, (c) Simon Michael & contributors,
-- ledger is at http://newartisans.com/ledger.html -- ledger is at http://newartisans.com/ledger.html
import Debug.Trace
import System.Directory (getHomeDirectory) import System.Directory (getHomeDirectory)
import System.Environment (getEnv) import System.Environment (getEnv)
import Control.Exception (assert) import Control.Exception (assert)
@ -25,6 +26,20 @@ sample_entry2 = "\
\ assets:checking\n\ \ assets:checking\n\
\\n" --" \\n" --"
sample_entry3 = "\
\2007/01/01 * opening balance\n\
\ assets:cash $4.82\n\
\ equity:opening balances\n\
\\n\
\2007/01/01 * opening balance\n\
\ assets:cash $4.82\n\
\ equity:opening balances\n\
\\n\
\2007/01/28 coopportunity\n\
\ expenses:food:groceries $47.18\n\
\ assets:checking\n\
\\n" --"
sample_periodic_entry = "\ sample_periodic_entry = "\
\~ monthly from 2007/2/2\n\ \~ monthly from 2007/2/2\n\
\ assets:saving $200.00\n\ \ assets:saving $200.00\n\
@ -37,6 +52,16 @@ sample_periodic_entry2 = "\
\ assets:checking\n\ \ assets:checking\n\
\\n" --" \\n" --"
sample_periodic_entry3 = "\
\~ monthly from 2007/01/01\n\
\ assets:cash $4.82\n\
\ equity:opening balances\n\
\\n\
\~ monthly from 2007/01/01\n\
\ assets:cash $4.82\n\
\ equity:opening balances\n\
\\n" --"
sample_transaction = " expenses:food:dining $10.00\n" sample_transaction = " expenses:food:dining $10.00\n"
sample_transaction2 = " assets:checking\n" sample_transaction2 = " assets:checking\n"
@ -238,8 +263,10 @@ main = do
showParseResult (parse ledgertransaction "" sample_transaction2) showParseResult (parse ledgertransaction "" sample_transaction2)
showParseResult (parse ledgerentry "" sample_entry) showParseResult (parse ledgerentry "" sample_entry)
showParseResult (parse ledgerentry "" sample_entry2) showParseResult (parse ledgerentry "" sample_entry2)
showParseResult (parse ledgerentry "" sample_entry3)
showParseResult (parse ledgerperiodicentry "" sample_periodic_entry) showParseResult (parse ledgerperiodicentry "" sample_periodic_entry)
showParseResult (parse ledgerperiodicentry "" sample_periodic_entry2) showParseResult (parse ledgerperiodicentry "" sample_periodic_entry2)
showParseResult (parse ledgerperiodicentry "" sample_periodic_entry3)
showParseResult (parse ledger "" sample_ledger) showParseResult (parse ledger "" sample_ledger)
showParseResult (parse ledger "" sample_ledger2) showParseResult (parse ledger "" sample_ledger2)
showParseResult (parse ledger "" sample_ledger3) showParseResult (parse ledger "" sample_ledger3)