parseCheck name s frame = testCase name $ assertEqual name (Right frame) (parseFrame . pack . (fmap c2w) $ s)
parseCheck name s frame = testCase name $ assertEqual name (Right frame) (parseFrame . pack . (fmap c2w) $ s)
parseCheck name s frame = testCase name $ assertEqual name (Right frame) (parseFrame . pack . (fmap c2w) $ s)