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

more varied dates in sample ledger

Browse Source
This commit is contained in:
Simon Michael 2008-11-26 21:11:10 +00:00
parent 1c969b5744
commit 866398ecb8
2 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
Tests.hs
View File

@ -401,7 +401,7 @@ printcommand_tests = TestList [
let pats = ["expenses"] let pats = ["expenses"]
l <- ledgerfromfile pats "sample.ledger" l <- ledgerfromfile pats "sample.ledger"
assertequal ( assertequal (
"2007/01/01 * eat & shop\n" ++ "2008/06/03 * eat & shop\n" ++
" expenses:food $1\n" ++ " expenses:food $1\n" ++
" expenses:supplies $1\n" ++ " expenses:supplies $1\n" ++
" assets:cash $-2\n" ++ " assets:cash $-2\n" ++
@ -414,16 +414,16 @@ registercommand_tests = TestList [
do do
l <- ledgerfromfile [] "sample.ledger" l <- ledgerfromfile [] "sample.ledger"
assertequal ( assertequal (
"2007/01/01 income assets:checking $1 $1\n" ++ "2008/01/01 income assets:checking $1 $1\n" ++
" income:salary $-1 0\n" ++ " income:salary $-1 0\n" ++
"2007/01/01 gift assets:checking $1 $1\n" ++ "2008/06/01 gift assets:checking $1 $1\n" ++
" income:gifts $-1 0\n" ++ " income:gifts $-1 0\n" ++
"2007/01/01 save assets:saving $1 $1\n" ++ "2008/06/02 save assets:saving $1 $1\n" ++
" assets:checking $-1 0\n" ++ " assets:checking $-1 0\n" ++
"2007/01/01 eat & shop expenses:food $1 $1\n" ++ "2008/06/03 eat & shop expenses:food $1 $1\n" ++
" expenses:supplies $1 $2\n" ++ " expenses:supplies $1 $2\n" ++
" assets:cash $-2 0\n" ++ " assets:cash $-2 0\n" ++
"2008/01/01 pay off liabilities:debts $1 $1\n" ++ "2008/12/31 pay off liabilities:debts $1 $1\n" ++
" assets:checking $-1 0\n" ++ " assets:checking $-1 0\n" ++
"") "")
$ showRegisterReport [] [] l $ showRegisterReport [] [] l
@ -432,7 +432,7 @@ registercommand_tests = TestList [
do do
l <- ledgerfromfile [] "sample.ledger" l <- ledgerfromfile [] "sample.ledger"
assertequal ( assertequal (
"2007/01/01 eat & shop assets:cash $-2 $-2\n" ++ "2008/06/03 eat & shop assets:cash $-2 $-2\n" ++
"") "")
$ showRegisterReport [] ["cash"] l $ showRegisterReport [] ["cash"] l
, ,
@ -799,24 +799,24 @@ sample_ledger_str = (
"; liabilities\n" ++ "; liabilities\n" ++
"; debts\n" ++ "; debts\n" ++
"\n" ++ "\n" ++
"2007/01/01 income\n" ++ "2008/01/01 income\n" ++
" assets:checking $1\n" ++ " assets:checking $1\n" ++
" income:salary\n" ++ " income:salary\n" ++
"\n" ++ "\n" ++
"2007/01/01 gift\n" ++ "2008/06/01 gift\n" ++
" assets:checking $1\n" ++ " assets:checking $1\n" ++
" income:gifts\n" ++ " income:gifts\n" ++
"\n" ++ "\n" ++
"2007/01/01 save\n" ++ "2008/06/02 save\n" ++
" assets:saving $1\n" ++ " assets:saving $1\n" ++
" assets:checking\n" ++ " assets:checking\n" ++
"\n" ++ "\n" ++
"2007/01/01 * eat & shop\n" ++ "2008/06/03 * eat & shop\n" ++
" expenses:food $1\n" ++ " expenses:food $1\n" ++
" expenses:supplies $1\n" ++ " expenses:supplies $1\n" ++
" assets:cash\n" ++ " assets:cash\n" ++
"\n" ++ "\n" ++
"2008/1/1 * pay off\n" ++ "2008/12/31 * pay off\n" ++
" liabilities:debts $1\n" ++ " liabilities:debts $1\n" ++
" assets:checking\n" ++ " assets:checking\n" ++
"\n" ++ "\n" ++

10
sample.ledger
View File

@ -14,24 +14,24 @@
; liabilities ; liabilities
; debts ; debts
2007/01/01 income 2008/01/01 income
assets:checking $1 assets:checking $1
income:salary income:salary
2007/01/01 gift 2008/06/01 gift
assets:checking $1 assets:checking $1
income:gifts income:gifts
2007/01/01 save 2008/06/02 save
assets:saving $1 assets:saving $1
assets:checking assets:checking
2007/01/01 * eat & shop 2008/06/03 * eat & shop
expenses:food $1 expenses:food $1
expenses:supplies $1 expenses:supplies $1
assets:cash assets:cash
2008/1/1 * pay off 2008/12/31 * pay off
liabilities:debts $1 liabilities:debts $1
assets:checking assets:checking