feat(parser-tests): add function for test parsing

raf-nr · Nov 18, 2024 · ae47417 · ae47417
1 parent ea61bd9
commit ae47417
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lib/parser/parser.ml b/lib/parser/parser.ml
@@ -55,3 +55,9 @@ let declaration_parser =
 let parse input =
   parse_string ~consume:All (many1 (expression_parser <|> declaration_parser)) input
 ;;
+
+let test_parse code =
+  match parse code with
+  | Ok ast -> Stdlib.Format.printf "%a\n" Ast.pp_program ast
+  | Error s -> Stdlib.Format.printf "Parsing error: %s\n" s
+;;