diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/qsp_parser_test.ml | 5 |
1 files changed, 3 insertions, 2 deletions
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 -> |