statTests :: ProcessedRecord -> ProcessedRecord -> Test
statTests expected actual =
  TestLabel "stat tests" $
  TestList $ map statTests' $ zip3 fields expected actual
statTests :: ProcessedRecord -> ProcessedRecord -> Test
statTests expected actual =
  TestLabel "stat tests" $
  TestList $ map statTests' $ zip3 fields expected actual
statTests expected actual =
  TestLabel "stat tests" $
  TestList $ map statTests' $ zip3 fields expected actual