a test
This commit is contained in:
parent
981c513bd9
commit
b94ec3456d
1 changed files with 4 additions and 0 deletions
|
@ -42,6 +42,10 @@ let tests_typeof =
|
||||||
, Some Type.(Arrow (Int, Arrow (Int, Int))) )
|
, Some Type.(Arrow (Int, Arrow (Int, Int))) )
|
||||||
; (* Use of a non declared variable *)
|
; (* Use of a non declared variable *)
|
||||||
"fun x -> fun y -> y / z", Term.(Fun (x, Fun (y, Binop (Var y, Div, Var z)))), None
|
"fun x -> fun y -> y / z", Term.(Fun (x, Fun (y, Binop (Var y, Div, Var z)))), None
|
||||||
|
(* Type mismatch between argument and function *)
|
||||||
|
; ( "(fun x -> x + 1) true"
|
||||||
|
, Term.(App (Fun (x, Binop (Var x, Plus, IntConst 1)), Var x))
|
||||||
|
, None )
|
||||||
]
|
]
|
||||||
;;
|
;;
|
||||||
|
|
||||||
|
|
Reference in a new issue