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]) ] :: [Bool])
hunit = runTestTT $ "hunit" ~: test ([ hunit = runTestTT $ "hunit" ~: test ([
"" ~: punctuatethousands "" @?= "" "punctuatethousands" ~: punctuatethousands "" @?= ""
,"" ~: punctuatethousands "1234567.8901" @?= "1,234,567.8901" ,"punctuatethousands" ~: punctuatethousands "1234567.8901" @?= "1,234,567.8901"
,"" ~: punctuatethousands "-100" @?= "-100" ,"punctuatethousands" ~: punctuatethousands "-100" @?= "-100"
,"" ~: test_ledgertransaction ,"test_ledgertransaction" ~: test_ledgertransaction
,"" ~: test_ledgerentry ,"test_ledgerentry" ~: test_ledgerentry
,"" ~: test_autofillEntry ,"test_autofillEntry" ~: test_autofillEntry
,"" ~: test_timelogentry ,"test_timelogentry" ~: test_timelogentry
,"" ~: test_timelog ,"test_timelog" ~: test_timelog
,"" ~: test_expandAccountNames ,"test_expandAccountNames" ~: test_expandAccountNames
,"" ~: test_ledgerAccountNames ,"test_ledgerAccountNames" ~: test_ledgerAccountNames
,"" ~: test_cacheLedger ,"test_cacheLedger" ~: test_cacheLedger
,"" ~: test_showLedgerAccounts ,"test_showLedgerAccounts" ~: test_showLedgerAccounts
,"" ~: test_Amount ,"test_Amount" ~: test_Amount
,"" ~: test_ledgeramount ,"test_ledgeramount" ~: test_ledgeramount
] :: [Test]) ] :: [Test])
test_ledgeramount :: Assertion test_ledgeramount :: Assertion