102 lines
2.3 KiB
OCaml
102 lines
2.3 KiB
OCaml
|
open Ppxlib
|
||
|
|
|
||
|
|
|
||
|
|
let foo =
|
||
|
|
Deriving.add "foo"
|
||
|
|
~str_type_decl:(Deriving.Generator.make_noarg
|
||
|
|
(fun ~loc ~path:_ _ -> [%str let foo = 42]))
|
||
|
|
~sig_type_decl:(Deriving.Generator.make_noarg
|
||
|
|
(fun ~loc ~path:_ _ -> [%sig: val foo : int]))
|
||
|
|
[%%expect{|
|
||
|
|
val foo : Deriving.t = <abstr>
|
||
|
|
|}]
|
||
|
|
|
||
|
|
let bar =
|
||
|
|
Deriving.add "bar"
|
||
|
|
~str_type_decl:(Deriving.Generator.make_noarg
|
||
|
|
~deps:[foo]
|
||
|
|
(fun ~loc ~path:_ _ -> [%str let bar = foo + 1]))
|
||
|
|
[%%expect{|
|
||
|
|
val bar : Deriving.t = <abstr>
|
||
|
|
|}]
|
||
|
|
|
||
|
|
let mtd =
|
||
|
|
Deriving.add "mtd"
|
||
|
|
~sig_module_type_decl:(
|
||
|
|
Deriving.Generator.make_noarg
|
||
|
|
(fun ~loc ~path:_ _ -> [%sig: val y : int]))
|
||
|
|
~str_module_type_decl:(
|
||
|
|
Deriving.Generator.make_noarg
|
||
|
|
(fun ~loc ~path:_ _ -> [%str let y = 42]))
|
||
|
|
[%%expect{|
|
||
|
|
val mtd : Deriving.t = <abstr>
|
||
|
|
|}]
|
||
|
|
|
||
|
|
let cd =
|
||
|
|
Deriving.add "cd"
|
||
|
|
~sig_class_type_decl:(Deriving.Generator.make_noarg (fun ~loc ~path:_ _ -> [%sig: val y : int]))
|
||
|
|
~str_class_type_decl:(Deriving.Generator.make_noarg (fun ~loc ~path:_ _ -> [%str let y = 42]))
|
||
|
|
[%%expect{|
|
||
|
|
val cd : Deriving.t = <abstr>
|
||
|
|
|}]
|
||
|
|
|
||
|
|
type t = int [@@deriving bar, foo]
|
||
|
|
[%%expect{|
|
||
|
|
Line _, characters 25-33:
|
||
|
|
Error: Deriver foo is needed for bar, you need to add it before in the list
|
||
|
|
|}]
|
||
|
|
|
||
|
|
type nonrec int = int [@@deriving foo, bar]
|
||
|
|
[%%expect{|
|
||
|
|
type nonrec int = int
|
||
|
|
val foo : int = 42
|
||
|
|
val bar : int = 43
|
||
|
|
|}]
|
||
|
|
|
||
|
|
module type Foo_sig = sig
|
||
|
|
type t [@@deriving foo]
|
||
|
|
end
|
||
|
|
[%%expect{|
|
||
|
|
module type Foo_sig = sig type t val foo : int end
|
||
|
|
|}]
|
||
|
|
|
||
|
|
module type X = sig end [@@deriving mtd]
|
||
|
|
[%%expect{|
|
||
|
|
module type X = sig end
|
||
|
|
val y : int = 42
|
||
|
|
|}]
|
||
|
|
|
||
|
|
module Y : sig
|
||
|
|
module type X = sig end [@@deriving mtd]
|
||
|
|
end = struct
|
||
|
|
module type X = sig end
|
||
|
|
let y = 42
|
||
|
|
end
|
||
|
|
[%%expect{|
|
||
|
|
module Y : sig module type X = sig end val y : int end
|
||
|
|
|}]
|
||
|
|
|
||
|
|
class type x = object end[@@deriving cd]
|
||
|
|
[%%expect{|
|
||
|
|
class type x = object end
|
||
|
|
val y : int = 42
|
||
|
|
|}]
|
||
|
|
|
||
|
|
|
||
|
|
let mbmd =
|
||
|
|
Deriving.add "mbmd"
|
||
|
|
~sig_module_decl:(Deriving.Generator.make_noarg (fun ~loc ~path:_ _ -> [%sig: val y : int]))
|
||
|
|
~str_module_binding:(Deriving.Generator.make_noarg (fun ~loc ~path:_ _ -> [%str let y = 42]))
|
||
|
|
|
||
|
|
[%%expect{|
|
||
|
|
val mbmd : Deriving.t = <abstr>
|
||
|
|
|}]
|
||
|
|
|
||
|
|
module X = struct
|
||
|
|
type t
|
||
|
|
end[@@deriving mbmd]
|
||
|
|
[%%expect{|
|
||
|
|
module X : sig type t end
|
||
|
|
val y : int = 42
|
||
|
|
|}]
|