1
0
Fork 0
This commit is contained in:
Mylloon 2024-04-30 11:16:16 +02:00
parent b94ec3456d
commit 32cc3ba032
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -46,6 +46,11 @@ let tests_typeof =
; ( "(fun x -> x + 1) true" ; ( "(fun x -> x + 1) true"
, Term.(App (Fun (x, Binop (Var x, Plus, IntConst 1)), Var x)) , Term.(App (Fun (x, Binop (Var x, Plus, IntConst 1)), Var x))
, None ) , None )
; (* Nested functions *)
( "(fun x -> fun y -> x + y) 3 4"
, Term.(
App (App (Fun (x, Fun (y, Binop (Var x, Plus, Var y))), IntConst 3), IntConst 4))
, Some Type.Int )
] ]
;; ;;