1 -- Tests for all bio functionality
    2 
    3 module Main where
    4 
    5 import Test.QuickCheck
    6 import System.IO
    7 
    8 import Bio.Util.TestBase
    9 import Bio.Util.Test as U
   10 import Bio.Alignment.Test as A
   11 import Bio.Sequence.Test as S
   12 import Bio.Clustering.Test as C
   13 
   14 all_tests :: [(String,[Test])]
   15 all_tests = [ ("Sequence tests", S.tests_io)
   16             , ("Sequence hash tests", S.tests_hw)
   17             , ("Alignment tests", A.tests)
   18             , ("Clustering tests", C.tests)
   19             , ("Util functions", U.tests)
   20             ]
   21 
   22 main = do
   23   hSetBuffering stdout NoBuffering
   24   mapM_ runTests all_tests
   25 
   26 runTests :: (String,[Test]) -> IO ()
   27 runTests (hd,ts) = do
   28   putStrLn ("\n --- "++hd++" ---\n")
   29   mapM_ runTest ts
   30 
   31 runTest (T name test) = do 
   32   putStr $ name ++ " " ++ replicate (28-length name) '.' ++ " "
   33   quickCheck test
   34 
   35   
   36   
   37