mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-09 00:15:48 +03:00
25 lines
927 B
Haskell
25 lines
927 B
Haskell
{-
|
|
A standalone unit test runner using test-framework. Compared to hledger's
|
|
built-in test runner, this one shows verbose ansi-colored hierarchic
|
|
results, can run tests in parallel, and may have better quickcheck support.
|
|
-}
|
|
|
|
import Test.Framework (defaultMain {-, testGroup-})
|
|
import Test.Framework.Providers.HUnit (hUnitTestToTests)
|
|
--import Test.Framework.Providers.QuickCheck2 (testProperty)
|
|
import Test.HUnit hiding (Test)
|
|
import qualified Test.HUnit (Test)
|
|
--import Test.QuickCheck
|
|
import Tests (tests)
|
|
import System.Exit (-- exitFailure, exitWith,
|
|
ExitCode(..))
|
|
import System.IO (hGetContents, hPutStr, hFlush, stderr, stdout)
|
|
import Text.Printf (printf)
|
|
--import Text.ParserCombinators.Parsec
|
|
import Control.Monad (liftM,when)
|
|
import Data.Maybe (fromMaybe)
|
|
import System.Process (runInteractiveCommand, waitForProcess)
|
|
|
|
main :: IO ()
|
|
main = defaultMain $ concatMap hUnitTestToTests tests
|