hledger/Tests.hs

273 lines
8.0 KiB
Haskell
Raw Normal View History

2007-02-09 04:23:12 +03:00
module Tests where
2007-02-09 06:17:12 +03:00
import Text.ParserCombinators.Parsec
2007-02-09 04:23:12 +03:00
import Test.QuickCheck
import Test.HUnit
import Options
2007-02-09 06:17:12 +03:00
import Types
import Parse
2007-02-09 04:23:12 +03:00
-- sample data
sample_entry = "\
\2007/01/27 * joes diner\n\
\ expenses:food:dining $10.00\n\
\ expenses:gifts $10.00\n\
\ assets:checking $-20.00\n\
\\n" --"
sample_entry2 = "\
\2007/01/28 coopportunity\n\
\ expenses:food:groceries $47.18\n\
\ assets:checking\n\
\\n" --"
sample_entry3 = "\
\2007/01/01 * opening balance\n\
\ assets:cash $4.82\n\
\ equity:opening balances\n\
\\n\
\2007/01/01 * opening balance\n\
\ assets:cash $4.82\n\
\ equity:opening balances\n\
\\n\
\2007/01/28 coopportunity\n\
\ expenses:food:groceries $47.18\n\
\ assets:checking\n\
\\n" --"
sample_periodic_entry = "\
\~ monthly from 2007/2/2\n\
\ assets:saving $200.00\n\
\ assets:checking\n\
\\n" --"
sample_periodic_entry2 = "\
\~ monthly from 2007/2/2\n\
\ assets:saving $200.00 ;auto savings\n\
\ assets:checking\n\
\\n" --"
sample_periodic_entry3 = "\
\~ monthly from 2007/01/01\n\
\ assets:cash $4.82\n\
\ equity:opening balances\n\
\\n\
\~ monthly from 2007/01/01\n\
\ assets:cash $4.82\n\
\ equity:opening balances\n\
\\n" --"
sample_transaction = " expenses:food:dining $10.00\n"
sample_transaction2 = " assets:checking\n"
sample_ledger = "\
\\n\
\2007/01/27 * joes diner\n\
\ expenses:food:dining $10.00\n\
\ expenses:gifts $10.00\n\
\ assets:checking $-20.00\n\
\\n\
\\n\
\2007/01/28 coopportunity\n\
\ expenses:food:groceries $47.18\n\
\ assets:checking $-47.18\n\
\\n\
\" --"
sample_ledger2 = "\
\;comment\n\
\2007/01/27 * joes diner\n\
\ expenses:food:dining $10.00\n\
\ assets:checking $-47.18\n\
\\n" --"
sample_ledger3 = "\
\2007/01/27 * joes diner\n\
\ expenses:food:dining $10.00\n\
\;intra-entry comment\n\
\ assets:checking $-47.18\n\
\\n" --"
sample_ledger4 = "\
\!include \"somefile\"\n\
\2007/01/27 * joes diner\n\
\ expenses:food:dining $10.00\n\
\ assets:checking $-47.18\n\
\\n" --"
sample_ledger5 = ""
sample_ledger6 = "\
\~ monthly from 2007/1/21\n\
\ expenses:entertainment $16.23 ;netflix\n\
\ assets:checking\n\
\\n\
\; 2007/01/01 * opening balance\n\
\; assets:saving $200.04\n\
\; equity:opening balances \n\
\\n" --"
sample_ledger7 = "\
\2007/01/01 * opening balance\n\
\ assets:cash $4.82\n\
\ equity:opening balances \n\
\\n\
\2007/01/02 * ayres suites\n\
\ expenses:vacation $179.92\n\
\ assets:checking \n\
\\n\
\2007/01/02 * auto transfer to savings\n\
\ assets:saving $200.00\n\
\ assets:checking \n\
\\n\
\2007/01/03 * poquito mas\n\
\ expenses:food:dining $4.82\n\
\ assets:cash \n\
\\n\
\2007/01/03 * verizon\n\
\ expenses:phone $95.11\n\
\ assets:checking \n\
\\n\
\2007/01/03 * discover\n\
\ liabilities:credit cards:discover $80.00\n\
\ assets:checking \n\
\\n\
\2007/01/04 * blue cross\n\
\ expenses:health:insurance $90.00\n\
\ assets:checking \n\
\\n\
\2007/01/05 * village market liquor\n\
\ expenses:food:dining $6.48\n\
\ assets:checking \n\
\\n" --"
ledger7 = Ledger [] []
[
Entry {
date="2007/01/01", status=False, code="*", description="opening balance",
transactions=[
Transaction {account="assets:cash",
amount=Amount {currency="$", quantity=4.82}},
Transaction {account="equity:opening balances",
amount=Amount {currency="$", quantity=(-4.82)}}
]
},
Entry {
date="2007/02/01", status=False, code="*", description="ayres suites",
transactions=[
Transaction {account="expenses:vacation",
amount=Amount {currency="$", quantity=179.92}},
Transaction {account="assets:checking",
amount=Amount {currency="$", quantity=(-179.92)}}
]
}
]
-- 2007/01/02 * auto transfer to savings
-- assets:saving $200.00
-- assets:checking
-- 2007/01/03 * poquito mas
-- expenses:food:dining $4.82
-- assets:cash
-- 2007/01/03 * verizon
-- expenses:phone $95.11
-- assets:checking
-- 2007/01/03 * discover
-- liabilities:credit cards:discover $80.00
-- assets:checking
-- 2007/01/04 * blue cross
-- expenses:health:insurance $90.00
-- assets:checking
-- 2007/01/05 * village market liquor
-- expenses:food:dining $6.48
-- assets:checking
2007-02-09 06:17:12 +03:00
-- utils
2007-02-09 04:23:12 +03:00
2007-02-09 06:17:12 +03:00
assertParseEqual :: (Show a, Eq a) => a -> (Either ParseError a) -> Assertion
assertParseEqual expected parsed =
case parsed of
Left e -> parseError e
Right v -> assertEqual " " expected v
2007-02-09 04:23:12 +03:00
2007-02-09 11:27:35 +03:00
assertEqual' e a = assertEqual "" e a
2007-02-09 06:17:12 +03:00
parse' p ts = parse p "" ts
2007-02-09 11:27:35 +03:00
2007-02-09 06:17:12 +03:00
-- hunit tests
-- 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
2007-02-09 11:27:35 +03:00
test_parse_ledgertransaction :: Assertion
test_parse_ledgertransaction =
assertParseEqual
(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 "$" (-47.18))])
2007-02-09 11:27:35 +03:00
test_parse_ledgerentry =
assertParseEqual entry2 (parse' ledgerentry sample_entry2)
2007-02-09 06:17:12 +03:00
test_autofill_entry =
assertEqual'
(Amount "$" (-47.18))
(amount $ last $ transactions $ autofill entry2)
2007-02-09 06:17:12 +03:00
hunittests = TestList [
2007-02-09 11:27:35 +03:00
test "test_parse_ledgertransaction" test_parse_ledgertransaction
, test "test_parse_ledgerentry" test_parse_ledgerentry
, test "test_autofill_entry" test_autofill_entry
2007-02-09 11:27:35 +03:00
]
where test label fn = TestLabel label $ TestCase fn
2007-02-09 06:17:12 +03:00
hunittests2 = Test.HUnit.test [
2007-02-09 06:32:07 +03:00
"test1" ~: assertEqual "2 equals 2" 2 2
]
2007-02-09 04:23:12 +03:00
2007-02-09 06:32:07 +03:00
-- quickcheck properties
2007-02-09 04:23:12 +03:00
2007-02-09 06:17:12 +03:00
prop1 = 1 == 1
2007-02-09 06:32:07 +03:00
--prop_test_parse_ledgertransaction =
-- (Transaction "expenses:food:dining" (Amount "$" 10)) ==
-- (parse' ledgertransaction sample_transaction))
-- how ?
2007-02-09 04:23:12 +03:00
-- commands
test :: IO ()
test = do
2007-02-09 06:32:07 +03:00
runTestTT hunittests
-- runTestTT hunittests2
-- quickCheck prop1
return ()