diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/make_checkTest.ml | 3 | ||||
| -rw-r--r-- | test/syntax.ml | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/test/make_checkTest.ml b/test/make_checkTest.ml index 2066c22..d428b45 100644 --- a/test/make_checkTest.ml +++ b/test/make_checkTest.ml @@ -26,7 +26,8 @@ module M (Check : Qsp_syntax.S.Analyzer) = struct let lexing = Sedlexing.Latin1.from_string content |> Qparser.Lexbuf.from_lexbuf in - Qparser.Analyzer.parse (module Check) lexing + let context = Check.initialize () in + Qparser.Analyzer.parse (module Check) lexing context let get_report : (Check.Location.t * Qsp_syntax.Report.t list, Qsp_syntax.Report.t) result -> 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. *) |