48 lines
891 B
OCaml
48 lines
891 B
OCaml
[@@@ocaml.warning "@A"]
|
|
|
|
(* Fixture *)
|
|
|
|
module type DEPRECATED = sig end
|
|
[@@ocaml.deprecated]
|
|
|
|
module T = struct
|
|
type deprecated
|
|
[@@ocaml.deprecated]
|
|
end
|
|
|
|
(* Structure items *)
|
|
|
|
let _ = let x = 1 in ()
|
|
[@@ocaml.warning "-26"]
|
|
|
|
include (struct let _ = let x = 1 in () end)
|
|
[@@ocaml.warning "-26"]
|
|
|
|
module A = struct let _ = let x = 1 in () end
|
|
[@@ocaml.warning "-26"]
|
|
|
|
module rec B : sig type t end = struct type t = T.deprecated end
|
|
[@@ocaml.warning "-3"]
|
|
|
|
module type T = sig type t = T.deprecated end
|
|
[@@ocaml.warning "-3"]
|
|
|
|
(* Signature items *)
|
|
|
|
module type S = sig
|
|
val x : T.deprecated
|
|
[@@ocaml.warning "-3"]
|
|
|
|
module AA : sig type t = T.deprecated end
|
|
[@@ocaml.warning "-3"]
|
|
|
|
module rec BB : sig type t = T.deprecated end
|
|
[@@ocaml.warning "-3"]
|
|
|
|
module type T = sig type t = T.deprecated end
|
|
[@@ocaml.warning "-3"]
|
|
|
|
include DEPRECATED
|
|
[@@ocaml.warning "-3"]
|
|
end
|