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

test anon function

Browse Source
This commit is contained in:
galfour 2019-11-18 18:44:15 +01:00
parent ddc4b7b7a5
commit 63822e0430
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/test/contracts/function-anon.ligo Normal file
View File

@ -0,0 +1 @@
const x : int = (function (const i : int) : int is i + 1)(41)

8
src/test/integration_tests.ml
View File

@ -52,6 +52,13 @@ let complex_function () : unit result =
let make_expect = fun n -> (3 * n + 2) in let make_expect = fun n -> (3 * n + 2) in
expect_eq_n_int program "main" make_expect expect_eq_n_int program "main" make_expect
let anon_function () : unit result =
let%bind program = type_file "./contracts/function-anon.ligo" in
let%bind () =
expect_eq_evaluate program "x" (e_int 42)
in
ok ()
let application () : unit result = let application () : unit result =
let%bind program = type_file "./contracts/application.ligo" in let%bind program = type_file "./contracts/application.ligo" in
let%bind () = let%bind () =
@ -1196,6 +1203,7 @@ let main = test_suite "Integration (End to End)" [
test "assign" assign ; test "assign" assign ;
test "declaration local" declaration_local ; test "declaration local" declaration_local ;
test "complex function" complex_function ; test "complex function" complex_function ;
test "anon function" anon_function ;
test "various applications" application ; test "various applications" application ;
test "closure" closure ; test "closure" closure ;
test "shared function" shared_function ; test "shared function" shared_function ;