recordTests :: Test
recordTests = TestLabel "record tests" $
  TestList $ map recordTests' actualRecords
  where actualRecords = Map.keys $ processedRecords actual
recordTests :: Test
recordTests = TestLabel "record tests" $
  TestList $ map recordTests' actualRecords
  where actualRecords = Map.keys $ processedRecords actual
recordTests = TestLabel "record tests" $
  TestList $ map recordTests' actualRecords
  where actualRecords = Map.keys $ processedRecords actual