convertible-1.0.3: testsrc/runtests.hs

module Main where
import qualified Test.HUnit as HU
import Test.HUnit.Tools

import qualified TestNum
import qualified TestMap
import qualified TestTime

test1 = HU.TestCase ((HU.@=?) "x" "x")

alltests = [HU.TestLabel "test1" test1,
            tl "TestNum" TestNum.allt,
            tl "TestMap" TestMap.allt,
            tl "TestTime" TestTime.allt]

main = do runVerboseTests (HU.TestList alltests)
          return ()