37 lines
1.1 KiB
OCaml
37 lines
1.1 KiB
OCaml
|
open Cli_expect
|
||
|
|
|
||
|
|
let contract basename =
|
||
|
|
"../../test/contracts/" ^ basename
|
||
|
|
let bad_contract basename =
|
||
|
|
"../../test/contracts/negative/" ^ basename
|
||
|
|
|
||
|
|
let%expect_test _ =
|
||
|
|
run_ligo_good [ "run-function" ; contract "failwith.ligo" ; "failer" ; "1" ] ;
|
||
|
|
[%expect {|
|
||
|
|
failwith("some_string") |}];
|
||
|
|
|
||
|
|
run_ligo_good [ "run-function" ; contract "failwith.ligo" ; "failer" ; "1" ; "--format=json" ] ;
|
||
|
|
[%expect {|
|
||
|
|
{"status":"ok","content":"failwith(\"some_string\")"} |}];
|
||
|
|
|
||
|
|
|
||
|
|
run_ligo_good [ "dry-run" ; contract "subtle_nontail_fail.mligo" ; "main" ; "()" ; "()" ] ;
|
||
|
|
[%expect {|
|
||
|
|
failwith("This contract always fails") |}];
|
||
|
|
|
||
|
|
run_ligo_good [ "interpret" ; "assert(1=1)" ; "--syntax=pascaligo" ] ;
|
||
|
|
[%expect {|
|
||
|
|
Unit |}];
|
||
|
|
|
||
|
|
run_ligo_good [ "interpret" ; "assert(1=2)" ; "--syntax=pascaligo" ] ;
|
||
|
|
[%expect {|
|
||
|
|
failwith("failed assertion") |}];
|
||
|
|
|
||
|
|
run_ligo_good [ "interpret" ; "assert(1=1)" ; "--syntax=cameligo" ] ;
|
||
|
|
[%expect {|
|
||
|
|
Unit |}];
|
||
|
|
|
||
|
|
run_ligo_good [ "interpret" ; "assert(1=2)" ; "--syntax=cameligo" ] ;
|
||
|
|
[%expect {|
|
||
|
|
failwith("failed assertion") |}];
|