mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-08 07:09:28 +03:00
a50d3e2b71
Until now, all unit tests were defined in Tests.hs. Pro: simple, makes code/test line counting easy. Con: tests are far from code, Tests.hs turns into a big wall of test code. Now, unit tests can also be defined in modules. To avoid name clashes and template haskell complexity, a dumb manual naming scheme is used: any module may export a hunit Test(List) named tests_ModuleName. These are manually aggregated and re-exported when appropriate, eg in Commands.All and finally in Tests.hs.
68 lines
1.6 KiB
Haskell
68 lines
1.6 KiB
Haskell
{-# LANGUAGE CPP #-}
|
|
{-|
|
|
|
|
The Commands package defines all the commands offered by the hledger
|
|
application, like \"register\" and \"balance\". This module exports all
|
|
the commands; you can also import individual modules if you prefer.
|
|
|
|
-}
|
|
|
|
module Commands.All (
|
|
module Commands.Add,
|
|
module Commands.Balance,
|
|
module Commands.Convert,
|
|
module Commands.Histogram,
|
|
module Commands.Print,
|
|
module Commands.Register,
|
|
module Commands.Stats,
|
|
#ifdef VTY
|
|
module Commands.UI,
|
|
#endif
|
|
#ifdef WEB
|
|
module Commands.Web,
|
|
#endif
|
|
#ifdef CHART
|
|
module Commands.Chart,
|
|
#endif
|
|
tests_Commands
|
|
)
|
|
where
|
|
import Commands.Add
|
|
import Commands.Balance
|
|
import Commands.Convert
|
|
import Commands.Histogram
|
|
import Commands.Print
|
|
import Commands.Register
|
|
import Commands.Stats
|
|
#ifdef VTY
|
|
import Commands.UI
|
|
#endif
|
|
#ifdef WEB
|
|
import Commands.Web
|
|
#endif
|
|
#ifdef CHART
|
|
import Commands.Chart
|
|
#endif
|
|
import Test.HUnit (Test(TestList))
|
|
|
|
|
|
tests_Commands = TestList
|
|
[
|
|
-- Commands.Add.tests_Add
|
|
-- ,Commands.Balance.tests_Balance
|
|
-- ,Commands.Convert.tests_Convert
|
|
-- ,Commands.Histogram.tests_Histogram
|
|
-- ,Commands.Print.tests_Print
|
|
Commands.Register.tests_Register
|
|
-- ,Commands.Stats.tests_Stats
|
|
-- #ifdef VTY
|
|
-- ,Commands.UI.tests_UI
|
|
-- #endif
|
|
-- #if defined(WEB) || defined(WEBHAPPSTACK)
|
|
-- ,Commands.Web.tests_Web
|
|
-- #endif
|
|
-- #ifdef CHART
|
|
-- ,Commands.Chart.tests_Chart
|
|
-- #endif
|
|
]
|