module Test.MuCheck.AnalysisSummary where
import Test.MuCheck.Utils.Print
data MAnalysisSummary = MAnalysisSummary {
_maNumMutants::Int
, _maAlive::Int
, _maKilled::Int
, _maErrors::Int
}
instance Show MAnalysisSummary where
show (MAnalysisSummary{..}) = let noerrors = _maNumMutants _maErrors
in showAS ["Total mutants: " ++ show _maNumMutants,
"\terrors: " ++ show _maErrors ++ " "++ _maErrors ./. _maNumMutants,
"\talive: " ++ show _maAlive ++ "/" ++ show noerrors,
"\tkilled: " ++ show _maKilled ++ "/" ++ show noerrors ++ " " ++ _maKilled ./. noerrors]