unikernel/duniverse/ppxlib/test/deriving/inline/example/dune

@@ -0,0 +1,9 @@
+(library
+ (name ppx_deriving_example)
+ (preprocess
+  (pps ppx_foo_deriver)))
+
+(alias
+ (package ppxlib)
+ (name runtest)
+ (deps ppx_deriving_example.cma))

unikernel/duniverse/ppxlib/test/deriving/inline/example/ppx_deriving_example.ml

@@ -0,0 +1,16 @@
+type t = A [@@deriving_inline foo]
+
+include struct
+  [@@@ocaml.warning "-60"]
+
+  let _ = fun (_ : t) -> ()
+
+  module Foo = struct end
+
+  let _ =
+    ();
+    ();
+    [%foo]
+end [@@ocaml.doc "@inline"]
+
+[@@@inline.end]