From e5bf85a55158e145818f5ca97531e7ce6425e6c4 Mon Sep 17 00:00:00 2001
From: Florian Schroedl <flo.schroedl@gmail.com>
Date: Fri, 19 Aug 2022 16:23:31 +0200
Subject: [PATCH] Add unit test for ch

---
 src_v2/parser/parser_internals.nim | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/src_v2/parser/parser_internals.nim b/src_v2/parser/parser_internals.nim
index 173263f..ec8fbce 100644
--- a/src_v2/parser/parser_internals.nim
+++ b/src_v2/parser/parser_internals.nim
@@ -244,12 +244,10 @@ let parseBetweenPair* = proc(delimiterParser: parserFnT): parserFnT {.closure.}
 # -- Tests
 
 when isMainModule:
-  let test1 = initParserResult("123")
+  let testParser123 = initParserResult("123")
 
-  let ch1 = ch('1')
-  let chDigits = @[ch(Digits)]
-
-  # echo type ch1
-  # echo test1.flatMap((x: Parser) => ParserResult.ok(x))
-  echo test1.flatMap(newlineParser)
-  # .flatMap(ch1)
+  block testBlockChar:
+    let ch1 = ch('1')
+    let chDigits = ch(Digits)
+    assert testParser123.flatMap(ch1).tokensToString() == "1"
+    assert testParser123.flatMap(chDigits).tokensToString() == "1"