Add tests for module-indent option

Author: HPRIOR

test/passing/gen/dune.inc

@@ -3993,6 +3993,24 @@
  (package ocamlformat)
  (action (diff module_attributes.ml.err module_attributes.ml.stderr)))
 
+(rule
+ (deps .ocamlformat)
+ (package ocamlformat)
+ (action
+  (with-stdout-to module_indent.ml.stdout
+   (with-stderr-to module_indent.ml.stderr
+     (run %{bin:ocamlformat} --name module_indent.ml --margin-check --module-indent=4 %{dep:../tests/module_indent.ml})))))
+
+(rule
+ (alias runtest)
+ (package ocamlformat)
+ (action (diff module_indent.ml.ref module_indent.ml.stdout)))
+
+(rule
+ (alias runtest)
+ (package ocamlformat)
+ (action (diff module_indent.ml.err module_indent.ml.stderr)))
+
 (rule
  (deps .ocamlformat)
  (package ocamlformat)

test/passing/refs.ahrefs/module_indent.ml.ref

@@ -0,0 +1,39 @@
+module type M = sig
+    type t
+
+    val f : (string * int) list -> int
+
+    module type Inner = sig
+        type inner
+
+        val f : int -> int
+    end
+end
+
+module A : sig
+    type t
+
+    val f : (string * int) list -> int
+end = struct
+    type t
+
+    let f s l = 0
+end
+
+module Core = struct
+    module Int = struct
+        module T = struct
+            type t = int
+
+            let compare = compare
+            let ( + ) x y = x + y
+        end
+
+        include T
+        module Map = Map.Make (T)
+    end
+
+    module Std = struct
+        module Int = Int
+    end
+end

test/passing/refs.default/module_indent.ml.ref

@@ -0,0 +1,39 @@
+module type M = sig
+    type t
+
+    val f : (string * int) list -> int
+
+    module type Inner = sig
+        type inner
+
+        val f : int -> int
+    end
+end
+
+module A : sig
+    type t
+
+    val f : (string * int) list -> int
+end = struct
+    type t
+
+    let f s l = 0
+end
+
+module Core = struct
+    module Int = struct
+        module T = struct
+            type t = int
+
+            let compare = compare
+            let ( + ) x y = x + y
+        end
+
+        include T
+        module Map = Map.Make (T)
+    end
+
+    module Std = struct
+        module Int = Int
+    end
+end

test/passing/refs.janestreet/module_indent.ml.ref

@@ -0,0 +1,39 @@
+module type M = sig
+    type t
+
+    val f : (string * int) list -> int
+
+    module type Inner = sig
+        type inner
+
+        val f : int -> int
+    end
+end
+
+module A : sig
+    type t
+
+    val f : (string * int) list -> int
+end = struct
+    type t
+
+    let f s l = 0
+end
+
+module Core = struct
+    module Int = struct
+        module T = struct
+            type t = int
+
+            let compare = compare
+            let ( + ) x y = x + y
+        end
+
+        include T
+        module Map = Map.Make (T)
+    end
+
+    module Std = struct
+        module Int = Int
+    end
+end

test/passing/refs.ocamlformat/module_indent.ml.ref

@@ -0,0 +1,40 @@
+module type M = sig
+    type t
+
+    val f : (string * int) list -> int
+
+    module type Inner = sig
+        type inner
+
+        val f : int -> int
+    end
+end
+
+module A : sig
+    type t
+
+    val f : (string * int) list -> int
+end = struct
+    type t
+
+    let f s l = 0
+end
+
+module Core = struct
+    module Int = struct
+        module T = struct
+            type t = int
+
+            let compare = compare
+
+            let ( + ) x y = x + y
+        end
+
+        include T
+        module Map = Map.Make (T)
+    end
+
+    module Std = struct
+        module Int = Int
+    end
+end

test/passing/tests/module_indent.ml

@@ -1,40 +1,39 @@
 module type M = sig
-  type t
+    type t
 
-  val f : (string * int) list -> int
+    val f : (string * int) list -> int
 
-  module type Inner = sig
-    type inner
+    module type Inner = sig
+        type inner
 
-    val f : int -> int
-  end
+        val f : int -> int
+    end
 end
 
 module A : sig
-  type t
+    type t
 
-  val f : (string * int) list -> int
+    val f : (string * int) list -> int
 end = struct
-  type t
+    type t
 
-  let f s l = 0
+    let f s l = 0
 end
 
 module Core = struct
-  module Int = struct
-    module T = struct
-      type t = int
+    module Int = struct
+        module T = struct
+            type t = int
 
-      let compare = compare
-      let ( + ) x y = x + y
-    end
+            let compare = compare
+            let ( + ) x y = x + y
+        end
 
-    include T
-    module Map = Map.Make (T)
-  end
+        include T
+        module Map = Map.Make (T)
+    end
 
-  module Std = struct
-    module Int = Int
-  end
+    module Std = struct
+        module Int = Int
+    end
 end
-