37 lines
1.1 KiB
Plaintext
37 lines
1.1 KiB
Plaintext
(* Simple test of binding multiple values *)
|
|
|
|
let (x : int), (y : int) = 1,2
|
|
|
|
let main (p : unit) : int = x + y
|
|
|
|
let ((x : int) , (y : int)) = 3,3
|
|
|
|
let main_paren (p : unit) : int = x + y
|
|
|
|
let foobar : (int * int) = (23 , 42)
|
|
let (foo : int) , (bar : int) = foobar
|
|
|
|
(* Here to prevent a regression of https://gitlab.com/ligolang/ligo/issues/63#note_254106580 *)
|
|
|
|
let correct_values_bound (p : unit) : int * int = foo, bar
|
|
|
|
let non_tuple_rhs (p : unit) : int = bar - foo
|
|
|
|
(* Here to prevent a regression of https://gitlab.com/ligolang/ligo/issues/63#note_254106580 *)
|
|
|
|
let big_tuple : int * int * int * int * int = 10, 20, 30, 40, 50
|
|
|
|
let (a: int), (b: int), (c: int), (d: int), (e: int) = big_tuple
|
|
|
|
let correct_values_big_tuple (p : unit) : int * int * int * int * int =
|
|
a, b, c, d, e
|
|
|
|
(* Here to prevent a regression of https://gitlab.com/ligolang/ligo/issues/63#note_254106580 *)
|
|
|
|
let different_types : int * string = 10, "hello"
|
|
|
|
let (greet_num : int), (greeting : string) = different_types
|
|
|
|
let correct_values_different_types (p : unit) : int * string =
|
|
greet_num, greeting
|