module Main where

import qualified Test.Piece as Piece


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

main :: IO ()
main =
   run "Piece" Piece.tests