debian-1.0: tests/Main.hs

module Main where

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

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