unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/lint.t/correct/dune

@@ -0,0 +1,4 @@
+(melange.emit
+ (target out)
+ (lint
+  (pps correct_static_add)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/lint.t/correct_static_add/correct_static_add.ml

@@ -0,0 +1,28 @@
+let detect_static_add = object
+  inherit Ppxlib.Ast_traverse.iter as super
+
+  method! expression e =
+    match e with
+    | { pexp_desc =
+          Pexp_apply
+            ( {pexp_desc = Pexp_ident {txt = Lident "+"; _}; _}
+            , [ (Nolabel, {pexp_desc = Pexp_constant (Pconst_integer (a, None)); _})
+              ; (Nolabel, {pexp_desc = Pexp_constant (Pconst_integer (b, None)); _})
+              ]
+            )
+      ; pexp_loc = loc
+      ; _
+      } ->
+      let sum = int_of_string a + int_of_string b in
+      let repl = string_of_int sum in
+      Ppxlib.Driver.register_correction ~loc ~repl
+    | _ -> super#expression e
+end
+
+let impl s =
+  detect_static_add#structure s; s
+
+let () =
+  Ppxlib.Driver.register_transformation
+    "detect_static_add"
+    ~impl

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/lint.t/correct_static_add/dune

@@ -0,0 +1,4 @@
+(library
+ (name correct_static_add)
+ (kind ppx_rewriter)
+ (libraries ppxlib))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/lint.t/dune-project

@@ -0,0 +1,3 @@
+(lang dune 3.13)
+
+(using melange 0.1)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/melange/lint.t/run.t

@@ -0,0 +1,15 @@
+The lint alias will run preprocessing actions listed under (lint). It also
+defines corrections that may be promoted.
+
+  $ cat > correct/add.ml << EOF
+  > let () = Printf.printf "%d\n" @@ 1 + 2
+  > EOF
+  $ dune build @correct/lint
+  File "correct/add.ml", line 1, characters 0-0:
+  Error: Files _build/default/correct/add.ml and
+  _build/default/correct/add.ml.lint-corrected differ.
+  [1]
+  $ dune promote correct/add.ml
+  Promoting _build/default/correct/add.ml.lint-corrected to correct/add.ml.
+  $ cat correct/add.ml
+  let () = Printf.printf "%d\n" @@ 3