Adapt test to ocaml.5.3

LexiFi · Jan 14, 2025 · 23feb78 · 23feb78
1 parent c435078
commit 23feb78
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/tests/poly-fail/test.ml b/tests/poly-fail/test.ml
@@ -1,7 +1,7 @@
 let ok =
   let test = (fun x -> x)
-  in test "string", test 1;;
+  in test "string", test (Random.int 1);;
 
 let ko =
   let test = (fun x -> x)[@landmark "test"]
-  in test "string", test 1;;
+  in test "string", test (Random.int 1);;
diff --git a/tests/poly-fail/test.out.expected b/tests/poly-fail/test.out.expected
@@ -1,7 +1,7 @@
-val ok : string * int = ("string", 1)
-Line 4, characters 25-26:
-4 |   in test "string", test 1;;
-                             ^
+val ok : string * int = ("string", 0)
+Line 4, characters 25-39:
+4 |   in test "string", test (Random.int 1);;
+                             ^^^^^^^^^^^^^^
 Error: This expression has type "int" but an expression was expected of type
          "string"