Paris7/unification-pfa
Archived
1
0
Fork 0
Code Issues Activity

bad nested function

Browse source
This commit is contained in:
Mylloon 2024-04-30 13:48:08 +02:00
parent 63eefc3166
commit 28d7670ea4
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test/test_projet_pfa_23_24.ml
View file

@ -51,6 +51,13 @@ let tests_typeof =
, Term.( , Term.(
App (App (Fun (x, Fun (y, Binop (Var x, Plus, Var y))), IntConst 3), IntConst 4)) App (App (Fun (x, Fun (y, Binop (Var x, Plus, Var y))), IntConst 3), IntConst 4))
, Some Type.Int ) , Some Type.Int )
; (* Bad Nested functions *)
( "(fun x -> fun y -> x + y) 3 (2, 4)"
, Term.(
App
( App (Fun (x, Fun (y, Binop (Var x, Plus, Var y))), IntConst 3)
, Pair (IntConst 2, IntConst 4) ))
, None )
; (* Function with nested pair *) ; (* Function with nested pair *)
( "(fun x -> fst x) (1, 2)" ( "(fun x -> fst x) (1, 2)"
, Term.(App (Fun (x, Proj (First, Var x)), Pair (IntConst 1, IntConst 2))) , Term.(App (Fun (x, Proj (First, Var x)), Pair (IntConst 1, IntConst 2)))