Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix Tests.ml{,.principal}.reference

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14845 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
commit 78315ea89cf1541d09d4e3db343a0e484e78640b 1 parent e0b1dab
Gabriel Scherer authored
10 testsuite/tests/typing-objects/Tests.ml.principal.reference
View
@@ -295,12 +295,12 @@ Warning 10: this expression should have type unit.
unit -> object method private m : int method n : int method o : int end
# - : int * int = (1, 1)
# class c : unit -> object method m : int end
-# - : int = 99
-# - : int = 100
+# - : int = 100
# - : int = 101
-# - : int * int * int = (102, 103, 104)
-# - : int * int * int * int * int = (105, 106, 107, 33, 33)
-# - : int * int * int * int * int = (108, 109, 110, 33, 33)
+# - : int = 102
+# - : int * int * int = (103, 104, 105)
+# - : int * int * int * int * int = (106, 107, 108, 33, 33)
+# - : int * int * int * int * int = (109, 110, 111, 33, 33)
# Characters 42-69:
class a = let _ = new b in object end
^^^^^^^^^^^^^^^^^^^^^^^^^^^
10 testsuite/tests/typing-objects/Tests.ml.reference
View
@@ -294,12 +294,12 @@ Warning 10: this expression should have type unit.
unit -> object method private m : int method n : int method o : int end
# - : int * int = (1, 1)
# class c : unit -> object method m : int end
-# - : int = 99
-# - : int = 100
+# - : int = 100
# - : int = 101
-# - : int * int * int = (102, 103, 104)
-# - : int * int * int * int * int = (105, 106, 107, 33, 33)
-# - : int * int * int * int * int = (108, 109, 110, 33, 33)
+# - : int = 102
+# - : int * int * int = (103, 104, 105)
+# - : int * int * int * int * int = (106, 107, 108, 33, 33)
+# - : int * int * int * int * int = (109, 110, 111, 33, 33)
# Characters 42-69:
class a = let _ = new b in object end
^^^^^^^^^^^^^^^^^^^^^^^^^^^
Please sign in to comment.
Something went wrong with that request. Please try again.