recordTests' :: Day -> Test
recordTests' day =
  TestLabel ("record for " ++ show day) $
  TestList [ statCountTest expectedRecord actualRecord
           , statTests expectedRecord actualRecord
           ]
  where
    expectedRecord = processedRecords expected ! day
    actualRecord = processedRecords actual ! day
recordTests' :: Day -> Test
recordTests' day =
  TestLabel ("record for " ++ show day) $
  TestList [ statCountTest expectedRecord actualRecord
           , statTests expectedRecord actualRecord
           ]
  where
    expectedRecord = processedRecords expected ! day
    actualRecord = processedRecords actual ! day
recordTests' day =
  TestLabel ("record for " ++ show day) $
  TestList [ statCountTest expectedRecord actualRecord
           , statTests expectedRecord actualRecord
           ]
  where
    expectedRecord = processedRecords expected ! day
    actualRecord = processedRecords actual ! day