mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-19 18:29:36 +03:00
40 lines
1.5 KiB
Haskell
Executable File
40 lines
1.5 KiB
Haskell
Executable File
#!/usr/bin/env stack exec -- ghcid -Tmain
|
|
-- Run tests using project's resolver, whenever ghcid is happy.
|
|
--
|
|
-- Experimental tests using easytest, an alternative to hunit (eg).
|
|
-- https://hackage.haskell.org/package/easytest
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
import EasyTest
|
|
import Hledger
|
|
|
|
main :: IO ()
|
|
main = do
|
|
run
|
|
-- rerun "journal.standard account types.queries.assets"
|
|
-- rerunOnly 2686786430487349354 "journal.standard account types.queries.assets"
|
|
$ tests [
|
|
|
|
scope "journal.standard account types.queries" $
|
|
let
|
|
j = samplejournal
|
|
journalAccountNamesMatching :: Query -> Journal -> [AccountName]
|
|
journalAccountNamesMatching q = filter (q `matchesAccount`) . journalAccountNames
|
|
namesfrom qfunc = journalAccountNamesMatching (qfunc j) j
|
|
in
|
|
tests
|
|
[ scope "assets" $
|
|
expectEq (namesfrom journalAssetAccountQuery) ["assets","assets:bank","assets:bank:checking","assets:bank:saving","assets:cash"]
|
|
, scope "liabilities" $
|
|
expectEq (namesfrom journalLiabilityAccountQuery) ["liabilities","liabilities:debts"]
|
|
, scope "equity" $
|
|
expectEq (namesfrom journalEquityAccountQuery) []
|
|
, scope "income" $
|
|
expectEq (namesfrom journalIncomeAccountQuery) ["income","income:gifts","income:salary"]
|
|
, scope "expenses" $
|
|
expectEq (namesfrom journalExpenseAccountQuery) ["expenses","expenses:food","expenses:supplies"]
|
|
]
|
|
|
|
]
|