midi-0.2.2.6: test/Common.hs

module Common where

import qualified Test.QuickCheck as QC

check :: QC.Testable prop => String -> prop -> IO ()
check msg t = putStr (msg ++ ": ") >> QC.quickCheck t