balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

failwith test

Browse Source
This commit is contained in:
galfour 2019-09-26 18:47:46 +02:00
parent 288b7e9149
commit e0e5228254
2 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/test/contracts/failwith.ligo
View File

@ -10,3 +10,21 @@ function main (const p : param; const s : unit) : list(operation) * unit is
end
}
with ((nil : list(operation)), s)
function foobar (const i : int) : unit is
var p : param := Zero (42n) ;
block {
if i > 0 then block {
i := i + 1 ;
if i > 10 then block {
i := 20 ;
failwith ("who knows") ;
i := 30 ;
} else skip
} else block {
case p of
| Zero (n) -> failwith ("wooo")
| Pos (n) -> skip
end
}
} with unit

5
src/test/integration_tests.ml
View File

@ -651,6 +651,11 @@ let failwith_ligo () : unit result =
let%bind _ = should_fail (e_pair (e_constructor "Zero" (e_nat 1)) (e_unit ())) in
let%bind _ = should_work (e_pair (e_constructor "Pos" (e_nat 1)) (e_unit ())) in
let%bind _ = should_fail (e_pair (e_constructor "Pos" (e_nat 0)) (e_unit ())) in
let should_fail input = expect_fail program "foobar" (e_int input) in
let should_work input = expect_eq program "foobar" (e_int input) (e_unit ()) in
let%bind () = should_fail @@ 10 in
let%bind () = should_fail @@ -10 in
let%bind () = should_work @@ 5 in
ok ()
let failwith_mligo () : unit result =