From 2e41a214e4c2a2984ad3b2afa3d80178d227927f Mon Sep 17 00:00:00 2001 From: Chimrod <> Date: Fri, 29 Sep 2023 19:06:41 +0200 Subject: Added a global line counter (off by default) --- test/qsp_parser_test.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'test/qsp_parser_test.ml') diff --git a/test/qsp_parser_test.ml b/test/qsp_parser_test.ml index d827099..652ef75 100644 --- a/test/qsp_parser_test.ml +++ b/test/qsp_parser_test.ml @@ -10,8 +10,9 @@ type 'a location = 'a * 'a Ast.statement list [@@deriving eq, show] (** Run the parser with the given expression and return the result *) let parse : string -> T.pos location = fun content -> - let lexing = Sedlexing.Latin1.from_string content in - + let lexing = + Sedlexing.Latin1.from_string content |> Qparser.Lexbuf.from_lexbuf + in match Qparser.Analyzer.parse (module Qsp_syntax.Tree) lexing with | Ok e -> e | Error e -> -- cgit v1.2.3