From 6fd720c07e3e361932e01bfbdbe4637c8f610649 Mon Sep 17 00:00:00 2001 From: Chimrod <> Date: Sun, 4 Feb 2024 10:37:04 +0100 Subject: Added a general context for each test --- test/syntax.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'test/syntax.ml') diff --git a/test/syntax.ml b/test/syntax.ml index 47f1a25..87fe2ab 100644 --- a/test/syntax.ml +++ b/test/syntax.ml @@ -27,7 +27,8 @@ let parse : string -> (S.pos location, Qsp_syntax.Report.t) result = let lexing = Sedlexing.Latin1.from_string content |> Qparser.Lexbuf.from_lexbuf in - Qparser.Analyzer.parse (module Parser) lexing + let context = Parser.initialize () in + Qparser.Analyzer.parse (module Parser) lexing context |> Result.map (fun (location, _report) -> (* Uncatched excteptions here, but we are in the tests… If it’s fail here I have an error in the code. *) -- cgit v1.2.3