mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-06 03:05:31 -05:00
27 lines
563 B
OCaml
27 lines
563 B
OCaml
module P = Parse_term
|
|
module A = Ast_term
|
|
|
|
(*
|
|
let () = Printexc.record_backtrace true
|
|
*)
|
|
|
|
let () =
|
|
Printexc.register_printer (function
|
|
| Parser_comb.ParseError e -> Some (Parser_comb.Error.to_string e)
|
|
| _ -> None)
|
|
|
|
let test_str what s =
|
|
let t = P.of_string_exn s in
|
|
|
|
Fmt.printf "%s: %a@." what A.pp_term t;
|
|
Fmt.printf "loc(%s): %a@." what A.pp_loc (A.loc t)
|
|
|
|
let () = test_str "t1" "f (g x) y"
|
|
let () = test_str "t2" "let x:= 1 in f (f x 2)"
|
|
|
|
let () =
|
|
test_str "t3"
|
|
{|
|
|
let l := map f (list 1 2 3) in
|
|
let l2 := rev l in eq (rev l2) l
|
|
|}
|