18 lines
363 B
OCaml
18 lines
363 B
OCaml
|
open Trace
|
||
|
|
open Ligo.Run
|
||
|
|
open Test_helpers
|
||
|
|
|
||
|
|
let syntax_error () : unit result =
|
||
|
|
let%bind _program = type_file `pascaligo "./contracts/error_syntax.ligo" in
|
||
|
|
ok ()
|
||
|
|
|
||
|
|
let type_error () : unit result =
|
||
|
|
let%bind _program = type_file `pascaligo "./contracts/error_type.ligo" in
|
||
|
|
ok ()
|
||
|
|
|
||
|
|
let () =
|
||
|
|
List.iter wrap_test_raw [
|
||
|
|
type_error ;
|
||
|
|
syntax_error ;
|
||
|
|
]
|