interpolation-0.1: test/Test.hs

module Main where

import qualified Test.Piece as Piece
import qualified Test.Sample as Sample
import qualified Test.Overlap as Overlap


run :: String -> [(String, IO ())] -> IO ()
run prefix =
   mapM_ (\(msg,act) -> putStr (prefix ++ '.' : msg ++ ": ") >> act)

main :: IO ()
main = do
   run "Piece" Piece.tests
   run "Sample" Sample.tests
   run "Overlap" Overlap.tests