add missing test runner

This commit is contained in:
Simon Michael 2009-11-25 11:30:50 +00:00
parent 715a2b7f22
commit 73bc81cd7e

24
tools/unittest.hs Normal file
View File

@ -0,0 +1,24 @@
{-
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