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

test cleanup

Browse Source
This commit is contained in:
Simon Michael 2007-02-09 08:27:35 +00:00
parent 3751a91c60
commit cda849fbff
1 changed files with 41 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
Tests.hs
View File

@ -118,35 +118,39 @@ assertParseEqual expected parsed =
Left e -> parseError e Left e -> parseError e
Right v -> assertEqual " " expected v Right v -> assertEqual " " expected v
assertEqual' e a = assertEqual "" e a
parse' p ts = parse p "" ts parse' p ts = parse p "" ts
-- hunit tests -- hunit tests
test_parse_ledgertransaction = TestCase ( test_parse_ledgertransaction :: Assertion
assertParseEqual test_parse_ledgertransaction =
(Transaction "expenses:food:dining" (Amount "$" 10)) assertParseEqual
(parse' ledgertransaction sample_transaction)) (Transaction "expenses:food:dining" (Amount "$" 10))
(parse' ledgertransaction sample_transaction)
entry2 =
(Entry "2007/01/28" False "" "coopportunity"
[Transaction "expenses:food:groceries" (Amount "$" 47.18),
Transaction "assets:checking" (Amount "" 0)])
test_parse_ledgerentry =
assertParseEqual entry2 (parse' ledgerentry sample_entry2)
test_show_entry =
assertEqual'
"2007/01/28 coopportunity\n expenses:food:groceries $47.18\n assets:checking 0.0\n"
(show entry2)
-- parseTest ledgertransaction sample_transaction2
-- parseTest ledgerentry sample_entry
-- parseTest ledgerentry sample_entry2
-- parseTest ledgerentry sample_entry3
-- parseTest ledgerperiodicentry sample_periodic_entry
-- parseTest ledgerperiodicentry sample_periodic_entry2
-- parseTest ledgerperiodicentry sample_periodic_entry3
-- parseTest ledger sample_ledger
-- parseTest ledger sample_ledger2
-- parseTest ledger sample_ledger3
-- parseTest ledger sample_ledger4
-- parseTest ledger sample_ledger5
-- parseTest ledger sample_ledger6
-- parseTest ledger sample_periodic_entry
-- parseTest ledger sample_periodic_entry2
-- parseLedgerFile ledgerFile >>= printParseResult
hunittests = TestList [ hunittests = TestList [
TestLabel "test_parse_ledgertransaction" test_parse_ledgertransaction test "test_parse_ledgertransaction" test_parse_ledgertransaction
, test "test_parse_ledgerentry" test_parse_ledgerentry
, test "test_show_entry" test_show_entry
] ]
where test label fn = TestLabel label $ TestCase fn
hunittests2 = Test.HUnit.test [ hunittests2 = Test.HUnit.test [
"test1" ~: assertEqual "2 equals 2" 2 2 "test1" ~: assertEqual "2 equals 2" 2 2
@ -168,3 +172,18 @@ test = do
runTestTT hunittests runTestTT hunittests
runTestTT hunittests2 runTestTT hunittests2
quickCheck prop1 quickCheck prop1
parseTest ledgertransaction sample_transaction2
parseTest ledgerentry sample_entry2
-- parseTest ledgerentry sample_entry3
-- parseTest ledgerperiodicentry sample_periodic_entry
-- parseTest ledgerperiodicentry sample_periodic_entry2
-- parseTest ledgerperiodicentry sample_periodic_entry3
-- parseTest ledger sample_ledger
-- parseTest ledger sample_ledger2
-- parseTest ledger sample_ledger3
-- parseTest ledger sample_ledger4
-- parseTest ledger sample_ledger5
-- parseTest ledger sample_ledger6
-- parseTest ledger sample_periodic_entry
-- parseTest ledger sample_periodic_entry2
-- parseLedgerFile ledgerFilePath >>= printParseResult