tesths

sample Spec.hs

import qualified TestHS as T
import Test.Something as S

main :: IO ()
main = do
  putStrLn "\n"
  putStrLn $ "Test Begins"
  T.reportTests $ S.fastTests 
  T.reportTestsIO $ S.ioTests 

S.fastTests is a list of tests [Test] and S.ioTests is a list of IO tests [IO Test] defined in Test.Something