serializeAndParseCheck name f = testCase name $ assertEqual name (Right f) $ (parseFrame . serializeFrame) f
serializeAndParseCheck name f = testCase name $ assertEqual name (Right f) $ (parseFrame . serializeFrame) f
serializeAndParseCheck name f = testCase name $ assertEqual name (Right f) $ (parseFrame . serializeFrame) f