50 lines
1.3 KiB
Text
50 lines
1.3 KiB
Text
(* Additional shadowing tests, to make sure the [@@deprecated] attributes are properly
|
|
transported in [Base] *)
|
|
open Base
|
|
|
|
let () = seek_in stdin 0
|
|
|
|
[%%expect
|
|
{|
|
|
Line _, characters _-_:
|
|
Error (alert deprecated): Base.seek_in
|
|
[2016-09] this element comes from the stdlib distributed with OCaml.
|
|
Use [Stdio.In_channel.seek] instead.
|
|
|
|
Line _, characters _-_:
|
|
Error (alert deprecated): Base.stdin
|
|
[2016-09] this element comes from the stdlib distributed with OCaml.
|
|
Use [Stdio.stdin] instead.
|
|
|}]
|
|
|
|
let (_ : _) = StringLabels.make 10 'x'
|
|
|
|
[%%expect
|
|
{|
|
|
Line _, characters _-_:
|
|
Error (alert deprecated): module Base.StringLabels
|
|
[2016-09] this element comes from the stdlib distributed with OCaml.
|
|
Referring to the stdlib directly is discouraged by Base. You should either
|
|
use the equivalent functionality offered by Base, or if you really want to
|
|
refer to the stdlib, use Stdlib.StringLabels instead
|
|
|}]
|
|
|
|
let _ = ( == )
|
|
|
|
[%%expect
|
|
{|
|
|
Line _, characters _-_:
|
|
Error (alert deprecated): Base.==
|
|
[2016-09] this element comes from the stdlib distributed with OCaml.
|
|
Use [phys_equal] instead.
|
|
|}]
|
|
|
|
let _ = ( != )
|
|
|
|
[%%expect
|
|
{|
|
|
Line _, characters _-_:
|
|
Error (alert deprecated): Base.!=
|
|
[2016-09] this element comes from the stdlib distributed with OCaml.
|
|
Use [not (phys_equal ...)] instead.
|
|
|}]
|