test
This commit is contained in:
parent
e68a72b072
commit
e34b8b5662
1
Tests.hs
1
Tests.hs
@ -450,6 +450,7 @@ registercommand_tests = TestList [
|
|||||||
"2008" `periodexprgives` ["2008/01/01","2008/06/01","2008/06/02","2008/06/03","2008/12/31"]
|
"2008" `periodexprgives` ["2008/01/01","2008/06/01","2008/06/02","2008/06/03","2008/12/31"]
|
||||||
"2007" `periodexprgives` []
|
"2007" `periodexprgives` []
|
||||||
"june" `periodexprgives` ["2008/06/01","2008/06/02","2008/06/03"]
|
"june" `periodexprgives` ["2008/06/01","2008/06/02","2008/06/03"]
|
||||||
|
"monthly" `periodexprgives` ["2008/01/01","2008/06/01","2008/12/01"]
|
||||||
|
|
||||||
let l = ledgerfromstring [] sample_ledger_str
|
let l = ledgerfromstring [] sample_ledger_str
|
||||||
assertequal (
|
assertequal (
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user