diff --git a/test/test_projet_pfa_23_24.ml b/test/test_projet_pfa_23_24.ml index 949e1b9..c296e03 100644 --- a/test/test_projet_pfa_23_24.ml +++ b/test/test_projet_pfa_23_24.ml @@ -11,7 +11,7 @@ let tests_typeof = , Term.(Fun (x, Fun (y, Binop (Var x, Plus, Var y)))) , Some Type.(Arrow (Int, Arrow (Int, Int))) ) ; (* Not typed variable *) - "x", Term.(Var "x"), Some Type.(Var "x") + "x", Term.(Var "x"), None ; (* Binary operation *) "1 + 2", Term.(Binop (IntConst 1, Plus, IntConst 2)), Some Type.Int ; (* Pair *)