18 lines
393 B
OCaml
18 lines
393 B
OCaml
|
open Trace
|
||
|
|
open Test_helpers
|
||
|
|
open Parser.Camligo
|
||
|
|
|
||
|
|
let basic () : unit result =
|
||
|
|
let%bind _ = User.parse_file "./contracts/new-syntax.mligo" in
|
||
|
|
ok ()
|
||
|
|
|
||
|
|
let simplify () : unit result =
|
||
|
|
let%bind raw = User.parse_file "./contracts/new-syntax.mligo" in
|
||
|
|
let%bind _simpl = Simplify.Camligo.main raw in
|
||
|
|
ok ()
|
||
|
|
|
||
|
|
let main = "Multifix", [
|
||
|
|
test "basic" basic ;
|
||
|
|
test "simplify" simplify ;
|
||
|
|
]
|