This commit is contained in:
Smaug123
2024-01-22 21:32:02 +00:00
parent c6c3cf2864
commit 5ddd613130
4 changed files with 168 additions and 95 deletions

View File

@@ -45,6 +45,6 @@ module TestParser =
let ``Parser looks plausible`` (input : string, expected : Expr) =
let tokens = Lexer.lex input |> List.ofSeq
let expr, remaining = Parser.parse Parser.basicParser input tokens
expr |> shouldEqual expected
let expr, remaining = Parser.parse Example.parser input tokens
remaining |> shouldEqual []
expr |> shouldEqual expected