a test
This commit is contained in:
parent
b94ec3456d
commit
32cc3ba032
1 changed files with 5 additions and 0 deletions
|
@ -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 )
|
||||||
]
|
]
|
||||||
;;
|
;;
|
||||||
|
|
||||||
|
|
Reference in a new issue