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

name hunit tests

Browse Source
This commit is contained in:
Simon Michael 2008-10-03 10:23:02 +00:00
parent 6167dc4ed0
commit b0e8286411
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
Tests.hs
View File

@ -307,20 +307,20 @@ quickcheck = mapM quickCheck ([
] :: [Bool])
hunit = runTestTT $ "hunit" ~: test ([
"" ~: punctuatethousands "" @?= ""
,"" ~: punctuatethousands "1234567.8901" @?= "1,234,567.8901"
,"" ~: punctuatethousands "-100" @?= "-100"
,"" ~: test_ledgertransaction
,"" ~: test_ledgerentry
,"" ~: test_autofillEntry
,"" ~: test_timelogentry
,"" ~: test_timelog
,"" ~: test_expandAccountNames
,"" ~: test_ledgerAccountNames
,"" ~: test_cacheLedger
,"" ~: test_showLedgerAccounts
,"" ~: test_Amount
,"" ~: test_ledgeramount
"punctuatethousands" ~: punctuatethousands "" @?= ""
,"punctuatethousands" ~: punctuatethousands "1234567.8901" @?= "1,234,567.8901"
,"punctuatethousands" ~: punctuatethousands "-100" @?= "-100"
,"test_ledgertransaction" ~: test_ledgertransaction
,"test_ledgerentry" ~: test_ledgerentry
,"test_autofillEntry" ~: test_autofillEntry
,"test_timelogentry" ~: test_timelogentry
,"test_timelog" ~: test_timelog
,"test_expandAccountNames" ~: test_expandAccountNames
,"test_ledgerAccountNames" ~: test_ledgerAccountNames
,"test_cacheLedger" ~: test_cacheLedger
,"test_showLedgerAccounts" ~: test_showLedgerAccounts
,"test_Amount" ~: test_Amount
,"test_ledgeramount" ~: test_ledgeramount
] :: [Test])
test_ledgeramount :: Assertion