fieldTest :: Test
fieldTest = TestLabel "field count" $
  TestCase $ fields @=? processedFields actual
fieldTest :: Test
fieldTest = TestLabel "field count" $
  TestCase $ fields @=? processedFields actual
fieldTest = TestLabel "field count" $
  TestCase $ fields @=? processedFields actual