diff options
| author | Chimrod <> | 2024-12-14 23:06:12 +0100 |
|---|---|---|
| committer | Chimrod <> | 2025-01-03 15:05:00 +0100 |
| commit | 75f3eabb46eded01460f7700a75d094100047438 (patch) | |
| tree | 4dcee7d2fc9310ff41776d9df8986f5efa0db229 /test/syntax.ml | |
| parent | 289dc576624d4233116806e566bb791fee1de178 (diff) | |
Diffstat (limited to 'test/syntax.ml')
| -rw-r--r-- | test/syntax.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/syntax.ml b/test/syntax.ml index db449b1..ff5a3ca 100644 --- a/test/syntax.ml +++ b/test/syntax.ml @@ -4,7 +4,8 @@ module Check = Qsp_checks.Check module S = Qsp_syntax.S module T = Qsp_syntax.T -let location_id, e1 = Qsp_syntax.Catalog.build (module Tree) +let location_id = Type.Id.make () +let e1 = Qsp_syntax.Catalog.build ~location_id (module Tree) module Parser = Check.Make (struct let t = [| e1 |] @@ -28,7 +29,9 @@ let parse : string -> (S.pos location, Qsp_syntax.Report.t) result = Sedlexing.Latin1.from_string content |> Qparser.Lexbuf.from_lexbuf in let context = Parser.initialize () in - Qparser.Analyzer.parse (module Parser) lexing context + Qparser.Analyzer.parse + (module Parser) + Qparser.Analyzer.Location lexing context |> Result.map (fun v -> (* Uncatched excteptions here, but we are in the tests… If it’s fail here I have an error in the code. *) |