module Main where

import Test.HUnit
import System.Exit
import Versions
import VersionPolicy
import SourcesList
import Dependencies

main =
    do (c,st) <- runTestText putTextToShowS (TestList (versionTests ++ versionPolicyTests ++ sourcesListTests ++ dependencyTests))
       putStrLn (st "")
       case (failures c) + (errors c) of
         0 -> return ()
         n -> exitFailure