promote tests

EmileTrotignon · EmileTrotignon · commit d43606434e98 · 2025-11-15T22:41:44.000+01:00
diff --git a/test/cli/print_config.t b/test/cli/print_config.t
@@ -18,7 +18,7 @@ No redundant values:
   disable=false
   margin-check=false
   max-iters=10
-  ocaml-version=4.04.0
+  ocaml-version=5.4.0
   quiet=false
   disable-conf-attrs=false
   version-check=true
@@ -99,7 +99,7 @@ Redundant values from the conventional profile:
   disable=false
   margin-check=false
   max-iters=10
-  ocaml-version=4.04.0
+  ocaml-version=5.4.0
   quiet=false
   disable-conf-attrs=false
   version-check=true
@@ -180,7 +180,7 @@ Redundant values from the ocamlformat profile:
   disable=false
   margin-check=false
   max-iters=10
-  ocaml-version=4.04.0
+  ocaml-version=5.4.0
   quiet=false
   disable-conf-attrs=false
   version-check=true
diff --git a/test/passing/gen/dune.inc b/test/passing/gen/dune.inc
@@ -1736,7 +1736,7 @@
  (action
   (with-stdout-to effects.ml.stdout
    (with-stderr-to effects.ml.stderr
-     (run %{bin:ocamlformat} --name effects.ml --margin-check --ocaml-version=5.3 %{dep:../tests/effects.ml})))))
+     (run %{bin:ocamlformat} --name effects.ml --margin-check %{dep:../tests/effects.ml})))))
 
 (rule
  (alias runtest)
diff --git a/test/passing/refs.default/extensions-indent.ml.ref b/test/passing/refs.default/extensions-indent.ml.ref
@@ -323,9 +323,9 @@ let _ =
 
 let _ =
   f
-    (object%ext
-       method x = y
-    end)
+    object%ext
+      method x = y
+    end
 
 let _ =
   f
diff --git a/test/passing/refs.default/extensions.ml.ref b/test/passing/refs.default/extensions.ml.ref
@@ -323,9 +323,9 @@ let _ =
 
 let _ =
   f
-    (object%ext
-       method x = y
-    end)
+    object%ext
+      method x = y
+    end
 
 let _ =
   f
diff --git a/test/passing/refs.default/labelled_args.ml.ref b/test/passing/refs.default/labelled_args.ml.ref
@@ -1,6 +1,6 @@
 let _ =
   let f ~y = y + 1 in
-  f ~y:(y : int)
+  f ~(y : int)
 
 let () =
   very_long_function_name
diff --git a/test/passing/refs.default/let_punning.ml.ref b/test/passing/refs.default/let_punning.ml.ref
@@ -6,25 +6,23 @@ and y = 2
 and z = 3
 
 let p =
-  let* x = x and* y = y and* z = z in
+  let* x = x and* y and* z = z in
   (x, y, z)
 
 let q =
-  let%foo x = x and y = y and z = z in
+  let%foo x and y = y and z in
   (x, y, z)
 
 let r =
   let* (* 1 *) x (* 2 *) = (* 3 *) x (* 4 *)
-  and* (* 5 *) y =
-    y
+  and* (* 5 *) y
     (* 6 *)
   in
   (x, y)
 
 let s =
   let%foo (* 1 *) x (* 2 *) = (* 3 *) x (* 4 *)
-  and (* 5 *) y =
-    y
+  and (* 5 *) y
     (* 6 *)
   in
   (x, y)
diff --git a/test/passing/refs.default/object.ml.ref b/test/passing/refs.default/object.ml.ref
@@ -56,8 +56,8 @@ type t = (int, int) #q
 let _ = object%js end
 let _ = object%js (super) end
 let _ = object%js (super : 'a) end
-let _ = f (object end)
-let _ = f (object%js end)
+let _ = f object end
+let _ = f object%js end
 
 class t ~a =
   object
diff --git a/test/passing/refs.default/object_expr.ml.ref b/test/passing/refs.default/object_expr.ml.ref
@@ -1,19 +1,19 @@
-(object
-   method one = 1
-end)
+object
+  method one = 1
+end
   #one
 ;;
 
 Some
-  (object
-     method one = 1
-  end)
+  object
+    method one = 1
+  end
 ;;
 
 ignore
-  (object
-     method one = 1
-  end)
+  object
+    method one = 1
+  end
 ;;
 
 let () =
diff --git a/test/passing/refs.janestreet/extensions-indent.ml.ref b/test/passing/refs.janestreet/extensions-indent.ml.ref
@@ -417,9 +417,9 @@ let _ =
 
 let _ =
   f
-    (object%ext
-       method x = y
-    end)
+    object%ext
+      method x = y
+    end
 ;;
 
 let _ =
diff --git a/test/passing/refs.janestreet/extensions.ml.ref b/test/passing/refs.janestreet/extensions.ml.ref
@@ -417,9 +417,9 @@ let _ =
 
 let _ =
   f
-    (object%ext
-       method x = y
-    end)
+    object%ext
+      method x = y
+    end
 ;;
 
 let _ =
diff --git a/test/passing/refs.janestreet/labelled_args.ml.ref b/test/passing/refs.janestreet/labelled_args.ml.ref
@@ -1,6 +1,6 @@
 let _ =
   let f ~y = y + 1 in
-  f ~y:(y : int)
+  f ~(y : int)
 ;;
 
 let () =
diff --git a/test/passing/refs.janestreet/let_punning.ml.ref b/test/passing/refs.janestreet/let_punning.ml.ref
@@ -7,31 +7,29 @@ and z = 3
 
 let p =
   let* x = x
-  and* y = y
+  and* y
   and* z = z in
   x, y, z
 ;;
 
 let q =
-  let%foo x = x
+  let%foo x
   and y = y
-  and z = z in
+  and z in
   x, y, z
 ;;
 
 let r =
   let* (* 1 *) x (* 2 *) = (* 3 *) x (* 4 *)
-  and* (* 5 *) y =
-    y
+  and* (* 5 *) y
     (* 6 *)
   in
   x, y
 ;;
 
 let s =
   let%foo (* 1 *) x (* 2 *) = (* 3 *) x (* 4 *)
-  and (* 5 *) y =
-    y
+  and (* 5 *) y
     (* 6 *)
   in
   x, y
diff --git a/test/passing/refs.janestreet/object.ml.ref b/test/passing/refs.janestreet/object.ml.ref
@@ -56,8 +56,8 @@ type t = (int, int) #q
 let _ = object%js end
 let _ = object%js (super) end
 let _ = object%js (super : 'a) end
-let _ = f (object end)
-let _ = f (object%js end)
+let _ = f object end
+let _ = f object%js end
 
 class t ~a =
   object
diff --git a/test/passing/refs.janestreet/object_expr.ml.ref b/test/passing/refs.janestreet/object_expr.ml.ref
@@ -1,19 +1,19 @@
-(object
-   method one = 1
-end)
+object
+  method one = 1
+end
   #one
 ;;
 
 Some
-  (object
-     method one = 1
-  end)
+  object
+    method one = 1
+  end
 ;;
 
 ignore
-  (object
-     method one = 1
-  end)
+  object
+    method one = 1
+  end
 ;;
 
 let () =
diff --git a/test/passing/refs.ocamlformat/extensions-indent.ml.ref b/test/passing/refs.ocamlformat/extensions-indent.ml.ref
@@ -348,9 +348,9 @@ let _ =
 
 let _ =
   f
-    (object%ext
-       method x = y
-    end )
+    object%ext
+      method x = y
+    end
 
 let _ =
   f
diff --git a/test/passing/refs.ocamlformat/extensions.ml.ref b/test/passing/refs.ocamlformat/extensions.ml.ref
@@ -348,9 +348,9 @@ let _ =
 
 let _ =
   f
-    (object%ext
-       method x = y
-    end )
+    object%ext
+      method x = y
+    end
 
 let _ =
   f
diff --git a/test/passing/refs.ocamlformat/labelled_args.ml.ref b/test/passing/refs.ocamlformat/labelled_args.ml.ref
@@ -1,6 +1,6 @@
 let _ =
   let f ~y = y + 1 in
-  f ~y:(y : int)
+  f ~(y : int)
 
 let () =
   very_long_function_name
diff --git a/test/passing/refs.ocamlformat/let_punning.ml.ref b/test/passing/refs.ocamlformat/let_punning.ml.ref
@@ -9,25 +9,23 @@ and y = 2
 and z = 3
 
 let p =
-  let* x = x and* y = y and* z = z in
+  let* x = x and* y and* z = z in
   (x, y, z)
 
 let q =
-  let%foo x = x and y = y and z = z in
+  let%foo x and y = y and z in
   (x, y, z)
 
 let r =
   let* (* 1 *) x (* 2 *) = (* 3 *) x (* 4 *)
-  and* (* 5 *) y =
-    y
+  and* (* 5 *) y
     (* 6 *)
   in
   (x, y)
 
 let s =
   let%foo (* 1 *) x (* 2 *) = (* 3 *) x (* 4 *)
-  and (* 5 *) y =
-    y
+  and (* 5 *) y
     (* 6 *)
   in
   (x, y)
diff --git a/test/passing/refs.ocamlformat/object.ml.ref b/test/passing/refs.ocamlformat/object.ml.ref
@@ -73,9 +73,9 @@ let _ = object%js (super) end
 
 let _ = object%js (super : 'a) end
 
-let _ = f (object end)
+let _ = f object end
 
-let _ = f (object%js end)
+let _ = f object%js end
 
 class t ~a =
   object
diff --git a/test/passing/refs.ocamlformat/object_expr.ml.ref b/test/passing/refs.ocamlformat/object_expr.ml.ref
@@ -1,19 +1,19 @@
-(object
-   method one = 1
-end )
+object
+  method one = 1
+end
   #one
 ;;
 
 Some
-  (object
-     method one = 1
-  end )
+  object
+    method one = 1
+  end
 ;;
 
 ignore
-  (object
-     method one = 1
-  end )
+  object
+    method one = 1
+  end
 ;;
 
 let () =

Original file line number	Diff line number	Diff line change
`@@ -323,9 +323,9 @@ let _ =`
`323`	`323`
`324`	`324`	`let _ =`
`325`	`325`	`f`
`326`		`- (object%ext`
`327`		`- method x = y`
`328`		`- end)`
	`326`	`+ object%ext`
	`327`	`+ method x = y`
	`328`	`+ end`
`329`	`329`
`330`	`330`	`let _ =`
`331`	`331`	`f`