testParsecExpectTransform :: (Eq b, Show b) => (a->b) -> Text
        -> T.Parsec Text () a -> b -> Assertion
testParsecExpectTransform trans source parser expected = case parse parser "" source of
        (Right x) -> assertEqual "Parse succeeded, value doesn't match"
            expected (trans x)
        Left pe -> assertBool ("Parse failed" ++ show pe) False
testParsecExpectTransform :: (Eq b, Show b) => (a->b) -> Text
        -> T.Parsec Text () a -> b -> Assertion
testParsecExpectTransform trans source parser expected = case parse parser "" source of
        (Right x) -> assertEqual "Parse succeeded, value doesn't match"
            expected (trans x)
        Left pe -> assertBool ("Parse failed" ++ show pe) False
testParsecExpectTransform trans source parser expected = case parse parser "" source of
        (Right x) -> assertEqual "Parse succeeded, value doesn't match"
            expected (trans x)
        Left pe -> assertBool ("Parse failed" ++ show pe) False