debian-1.2.1: tests/Main.hs

module Main where

import Test.HUnit
import System.Exit

import Versions
import SourcesList

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