promote tests

Author: EmileTrotignon

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

@@ -396,8 +396,8 @@ let () =
   let () =
     S.ntyp Cbor_type.Reserved
     @@ S.tok begin[@warning "-4"] fun ev ->
-           match ev with Cbor_event.Reserved int -> Some int | _ -> None
-         end
+        match ev with Cbor_event.Reserved int -> Some int | _ -> None
+      end
   in
   ()
 

test/passing/refs.default/exp_grouping-parens.ml.ref

@@ -557,11 +557,10 @@ let _ =
 let () =
   fooooo
   |>>>>> List.iter (fun a ->
-             let x =
-               some_really_really_really_long_name_that_doesn't_fit_on_the_line
-               $ y
-             in
-             fooooooooooo x)
+      let x =
+        some_really_really_really_long_name_that_doesn't_fit_on_the_line $ y
+      in
+      fooooooooooo x)
 
 let () =
   fooooo
@@ -576,11 +575,10 @@ let () =
 let () =
   fooooo
   |>>>>> List.iter (fun a ->
-             let x =
-               some_really_really_really_long_name_that_doesn't_fit_on_the_line
-               $ y
-             in
-             fooooooooooo x)
+      let x =
+        some_really_really_really_long_name_that_doesn't_fit_on_the_line $ y
+      in
+      fooooooooooo x)
 
 let () =
   fooooo

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

@@ -638,12 +638,11 @@ let _ =
 let () =
   fooooo
   |>>>>> List.iter begin fun a ->
-             let x =
-               some_really_really_really_long_name_that_doesn't_fit_on_the_line
-               $ y
-             in
-             fooooooooooo x
-           end
+      let x =
+        some_really_really_really_long_name_that_doesn't_fit_on_the_line $ y
+      in
+      fooooooooooo x
+    end
 
 let () =
   fooooo
@@ -659,12 +658,11 @@ let () =
 let () =
   fooooo
   |>>>>> List.iter begin fun a ->
-             let x =
-               some_really_really_really_long_name_that_doesn't_fit_on_the_line
-               $ y
-             in
-             fooooooooooo x
-           end
+      let x =
+        some_really_really_really_long_name_that_doesn't_fit_on_the_line $ y
+      in
+      fooooooooooo x
+    end
 
 let () =
   fooooo

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

@@ -442,8 +442,8 @@ let () =
   let () =
     S.ntyp Cbor_type.Reserved
     @@ S.tok begin[@warning "-4"] fun ev ->
-           match ev with Cbor_event.Reserved int -> Some int | _ -> None
-         end
+        match ev with Cbor_event.Reserved int -> Some int | _ -> None
+      end
   in
   ()
 

test/passing/refs.ocamlformat/exp_grouping-parens.ml.ref

@@ -561,11 +561,10 @@ let _ =
 let () =
   fooooo
   |>>>>> List.iter (fun a ->
-             let x =
-               some_really_really_really_long_name_that_doesn't_fit_on_the_line
-               $ y
-             in
-             fooooooooooo x )
+      let x =
+        some_really_really_really_long_name_that_doesn't_fit_on_the_line $ y
+      in
+      fooooooooooo x )
 
 let () =
   fooooo
@@ -580,11 +579,10 @@ let () =
 let () =
   fooooo
   |>>>>> List.iter (fun a ->
-             let x =
-               some_really_really_really_long_name_that_doesn't_fit_on_the_line
-               $ y
-             in
-             fooooooooooo x )
+      let x =
+        some_really_really_really_long_name_that_doesn't_fit_on_the_line $ y
+      in
+      fooooooooooo x )
 
 let () =
   fooooo

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

@@ -644,12 +644,11 @@ let _ =
 let () =
   fooooo
   |>>>>> List.iter begin fun a ->
-             let x =
-               some_really_really_really_long_name_that_doesn't_fit_on_the_line
-               $ y
-             in
-             fooooooooooo x
-           end
+      let x =
+        some_really_really_really_long_name_that_doesn't_fit_on_the_line $ y
+      in
+      fooooooooooo x
+    end
 
 let () =
   fooooo
@@ -665,12 +664,11 @@ let () =
 let () =
   fooooo
   |>>>>> List.iter begin fun a ->
-             let x =
-               some_really_really_really_long_name_that_doesn't_fit_on_the_line
-               $ y
-             in
-             fooooooooooo x
-           end
+      let x =
+        some_really_really_really_long_name_that_doesn't_fit_on_the_line $ y
+      in
+      fooooooooooo x
+    end
 
 let () =
   fooooo