Add unit test for ch

This commit is contained in:
Florian Schroedl
2022-08-19 16:23:31 +02:00
parent b8ab82f95c
commit e5bf85a551

View File

@@ -244,12 +244,10 @@ let parseBetweenPair* = proc(delimiterParser: parserFnT): parserFnT {.closure.}
# -- Tests # -- Tests
when isMainModule: when isMainModule:
let test1 = initParserResult("123") let testParser123 = initParserResult("123")
let ch1 = ch('1') block testBlockChar:
let chDigits = @[ch(Digits)] let ch1 = ch('1')
let chDigits = ch(Digits)
# echo type ch1 assert testParser123.flatMap(ch1).tokensToString() == "1"
# echo test1.flatMap((x: Parser) => ParserResult.ok(x)) assert testParser123.flatMap(chDigits).tokensToString() == "1"
echo test1.flatMap(newlineParser)
# .flatMap(ch1)