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

Add test for several function parameters in CameLIGO

Browse Source
This commit is contained in:
John David Pressman 2019-10-28 22:07:00 -07:00
parent c004fd24cd
commit ec3f836605
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/test/contracts/multiple-parameters.mligo Normal file
View File

@ -0,0 +1,4 @@
(* Test function with several parameters *)
let abcde (a : int) (b : int) (c : int) (d : int) (e : int) : int =
(c + e + 3)

13
src/test/integration_tests.ml
View File

@ -367,6 +367,18 @@ let multiple_parameters () : unit result =
] in
ok ()
let multiple_parameters_mligo () : unit result =
let%bind program = mtype_file "./contracts/multiple-parameters.mligo" in
let aux ((name : string) , make_input , make_output) =
let make_output' = fun n -> e_int @@ make_output n in
expect_eq_n program name make_input make_output'
in
let%bind _ = bind_list @@ List.map aux [
(* Didn't include the other tests because they're probably not necessary *)
("abcde", tuple_ez_int ["a";"b";"c";"d";"e"], fun n -> 2 * n + 3) ;
] in
ok ()
let record () : unit result =
let%bind program = type_file "./contracts/record.ligo" in
let%bind () =
@ -1001,6 +1013,7 @@ let main = test_suite "Integration (End to End)" [
test "shadow" shadow ;
test "annotation" annotation ;
test "multiple parameters" multiple_parameters ;
test "multiple parameters (mligo)" multiple_parameters_mligo ;
test "bool" bool_expression ;
test "bool (mligo)" bool_expression_mligo ;
test "arithmetic" arithmetic ;