File: Test.hs

package info (click to toggle)
haskell-utility-ht 0.0.5.1-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 160 kB
  • ctags: 1
  • sloc: haskell: 944; makefile: 3
file content (17 lines) | stat: -rw-r--r-- 415 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
module Main where

import qualified Test.Data.List     as ListHT
import qualified Test.Data.Function as FunctionHT


prefix :: String -> [(String, IO ())] -> [(String, IO ())]
prefix msg =
   map (\(str,test) -> (msg ++ "." ++ str, test))

main :: IO ()
main =
   mapM_ (\(msg,io) -> putStr (msg++": ") >> io) $
   concat $
      prefix "List"     ListHT.tests :
      prefix "Function" FunctionHT.tests :
      []