1
0
Fork 0
This commit is contained in:
Mylloon 2024-04-11 11:48:26 +02:00
parent 8e11322256
commit 16aee95bb3
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -11,7 +11,7 @@ let tests_typeof =
, Term.(Fun (x, Fun (y, Binop (Var x, Plus, Var y)))) , Term.(Fun (x, Fun (y, Binop (Var x, Plus, Var y))))
, Some Type.(Arrow (Int, Arrow (Int, Int))) ) , Some Type.(Arrow (Int, Arrow (Int, Int))) )
; (* Not typed variable *) ; (* Not typed variable *)
"x", Term.(Var "x"), None "x", Term.(Var "x"), Some Type.(Var "x")
; (* Binary operation *) ; (* Binary operation *)
"1 + 2", Term.(Binop (IntConst 1, Plus, IntConst 2)), Some Type.Int "1 + 2", Term.(Binop (IntConst 1, Plus, IntConst 2)), Some Type.Int
; (* Pair *) ; (* Pair *)