Skip to content

Commit a898318

Browse files
stable -> upstream_compatible
1 parent 45affe2 commit a898318

File tree

1 file changed

+15
-15
lines changed
  • ocaml/testsuite/tests/typing-layouts-non-null-value

1 file changed

+15
-15
lines changed

ocaml/testsuite/tests/typing-layouts-non-null-value/basics.ml

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
(* TEST
22
flags = "-extension-universe alpha";
3-
include stdlib_stable;
3+
include stdlib_upstream_compatible;
44
expect;
55
*)
66
type t_non_null_value : non_null_value
@@ -287,33 +287,33 @@ Error: This expression has type 'a lazy_t
287287

288288
(* Unboxed types are not values, so they are not non-null. *)
289289

290-
let _ = id_non_null_value (Stdlib_stable.Float_u.of_float 3.14)
290+
let _ = id_non_null_value (Stdlib_upstream_compatible.Float_u.of_float 3.14)
291291
;;
292292

293293
[%%expect{|
294-
Line 1, characters 26-63:
295-
1 | let _ = id_non_null_value (Stdlib_stable.Float_u.of_float 3.14)
296-
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
297-
Error: This expression has type Stdlib_stable.Float_u.t = float#
294+
Line 1, characters 26-76:
295+
1 | let _ = id_non_null_value (Stdlib_upstream_compatible.Float_u.of_float 3.14)
296+
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
297+
Error: This expression has type Stdlib_upstream_compatible.Float_u.t = float#
298298
but an expression was expected of type ('a : non_null_value)
299-
The layout of Stdlib_stable.Float_u.t is float64, because
299+
The layout of Stdlib_upstream_compatible.Float_u.t is float64, because
300300
it is the primitive float64 type float#.
301-
But the layout of Stdlib_stable.Float_u.t must be a sublayout of non_null_value, because
301+
But the layout of Stdlib_upstream_compatible.Float_u.t must be a sublayout of non_null_value, because
302302
of the definition of id_non_null_value at line 3, characters 4-21.
303303
|}]
304304

305-
let _ = id_non_null_value (Stdlib_stable.Int32_u.of_int 314)
305+
let _ = id_non_null_value (Stdlib_upstream_compatible.Int32_u.of_int 314)
306306
;;
307307

308308
[%%expect{|
309-
Line 1, characters 26-60:
310-
1 | let _ = id_non_null_value (Stdlib_stable.Int32_u.of_int 314)
311-
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
312-
Error: This expression has type Stdlib_stable.Int32_u.t = int32#
309+
Line 1, characters 26-73:
310+
1 | let _ = id_non_null_value (Stdlib_upstream_compatible.Int32_u.of_int 314)
311+
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
312+
Error: This expression has type Stdlib_upstream_compatible.Int32_u.t = int32#
313313
but an expression was expected of type ('a : non_null_value)
314-
The layout of Stdlib_stable.Int32_u.t is bits32, because
314+
The layout of Stdlib_upstream_compatible.Int32_u.t is bits32, because
315315
it is the primitive bits32 type int32#.
316-
But the layout of Stdlib_stable.Int32_u.t must be a sublayout of non_null_value, because
316+
But the layout of Stdlib_upstream_compatible.Int32_u.t must be a sublayout of non_null_value, because
317317
of the definition of id_non_null_value at line 3, characters 4-21.
318318
|}]
319319

0 commit comments

Comments
 (0)