Add test for tuple list in ReasonLIGO

This commit is contained in:
Sander Spies 2020-03-24 14:16:08 +01:00
parent af319ba236
commit caac8caf8e
2 changed files with 8 additions and 0 deletions

View File

@ -0,0 +1,3 @@
type z = list((int, int));
let o: z = [(2,4), (4, 6)];

View File

@ -2316,6 +2316,10 @@ let no_semicolon_religo () : unit result =
in in
ok () ok ()
let tuple_list_religo () : unit result =
let%bind _ = retype_file "./contracts/tuple_list.religo" in
ok ()
let loop_bugs_ligo () : unit result = let loop_bugs_ligo () : unit result =
let%bind program = type_file "./contracts/loop_bugs.ligo" in let%bind program = type_file "./contracts/loop_bugs.ligo" in
let input = e_unit () in let input = e_unit () in
@ -2502,4 +2506,5 @@ let main = test_suite "Integration (End to End)" [
test "tuple type (religo)" tuple_type_religo ; test "tuple type (religo)" tuple_type_religo ;
test "no semicolon (religo)" no_semicolon_religo ; test "no semicolon (religo)" no_semicolon_religo ;
test "loop_bugs (ligo)" loop_bugs_ligo ; test "loop_bugs (ligo)" loop_bugs_ligo ;
test "tuple_list (religo)" tuple_list_religo ;
] ]