statTests' :: (String, Stats, Stats) -> Test
statTests' (label, expected, actual) =
  TestLabel label $
  TestList $ map (statTest expected actual)
  [ ("statSum", statSum)
  , ("statMax", statMax)
  , ("statMin", statMin)
  , ("statAvg", statAvg)
  , ("statStdDev", statStdDev)
  ]
statTests' :: (String, Stats, Stats) -> Test
statTests' (label, expected, actual) =
  TestLabel label $
  TestList $ map (statTest expected actual)
  [ ("statSum", statSum)
  , ("statMax", statMax)
  , ("statMin", statMin)
  , ("statAvg", statAvg)
  , ("statStdDev", statStdDev)
  ]
statTests' (label, expected, actual) =
  TestLabel label $
  TestList $ map (statTest expected actual)
  [ ("statSum", statSum)
  , ("statMax", statMax)
  , ("statMin", statMin)
  , ("statAvg", statAvg)
  , ("statStdDev", statStdDev)
  ]