flambda-backend: Experiment with adding newlines in ocaml/testsuite/tests/warnings/

Author: mshinwell

testsuite/tests/warnings/deprecated_warning_specs.ml

@@ -18,6 +18,7 @@ Hint: Did you make a spelling mistake when using a mnemonic name?
 
 [@@@warning "ab-cdg+efh"]
 [%%expect {|
+
 Line 1, characters 0-25:
 1 | [@@@warning "ab-cdg+efh"]
     ^^^^^^^^^^^^^^^^^^^^^^^^^

testsuite/tests/warnings/w51.ml

@@ -21,6 +21,7 @@ let rec fact = function
   | n -> n * (fact [@tailcall true]) (n-1)
 ;;
 [%%expect {|
+
 Line 3, characters 13-42:
 3 |   | n -> n * (fact [@tailcall true]) (n-1)
                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
@@ -34,6 +35,7 @@ let rec fact = function
   | n -> n * (fact [@tailcall false]) (n-1)
 ;;
 [%%expect {|
+
 val fact : int -> int = <fun>
 |}]
 
@@ -42,6 +44,7 @@ let rec fact_tail acc = function
   | n -> (fact_tail [@tailcall]) (n * acc) (n - 1)
 ;;
 [%%expect{|
+
 val fact_tail : int -> int -> int = <fun>
 |}]
 
@@ -58,6 +61,7 @@ let rec fact_tail acc = function
   | n -> (fact_tail [@tailcall false]) (n * acc) (n - 1)
 ;;
 [%%expect{|
+
 Line 3, characters 9-56:
 3 |   | n -> (fact_tail [@tailcall false]) (n * acc) (n - 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
@@ -70,6 +74,7 @@ val fact_tail : int -> int -> int = <fun>
 (* explicitly test the "invalid payload" case *)
 let rec test x = (test[@tailcall foobar]) x;;
 [%%expect{|
+
 Line 1, characters 24-32:
 1 | let rec test x = (test[@tailcall foobar]) x;;
                             ^^^^^^^^

testsuite/tests/warnings/w52.ml

@@ -15,6 +15,7 @@ and may change in future versions. (see manual section 13.5.3)
 
 let () = try () with Match_failure ("Any",_,_) -> ();;
 [%%expect{|
+
 Line 1, characters 35-46:
 1 | let () = try () with Match_failure ("Any",_,_) -> ();;
                                        ^^^^^^^^^^^
@@ -25,6 +26,7 @@ and may change in future versions. (see manual section 13.5.3)
 
 let () = try () with Match_failure (_,0,_) -> ();;
 [%%expect{|
+
 Line 1, characters 35-42:
 1 | let () = try () with Match_failure (_,0,_) -> ();;
                                        ^^^^^^^
@@ -39,6 +41,7 @@ type t =
   | Warn' of nativeint [@ocaml.warn_on_literal_pattern]
   | Deep of (string * int) list [@ocaml.warn_on_literal_pattern];;
 [%%expect{|
+
 type t =
     Warn of string
   | Without_warning of string
@@ -50,6 +53,7 @@ let f = function
 | Warn "anything" -> ()
 | Warn _ | Warn' _ | Without_warning _ | Deep _ -> ();;
 [%%expect{|
+
 Line 2, characters 7-17:
 2 | | Warn "anything" -> ()
            ^^^^^^^^^^
@@ -64,6 +68,7 @@ let g = function
 | Warn' 0n -> ()
 | Warn _ | Warn' _ | Without_warning _ | Deep _ -> ();;
 [%%expect{|
+
 Line 2, characters 8-10:
 2 | | Warn' 0n -> ()
             ^^
@@ -78,20 +83,23 @@ let h = function
 | Without_warning "outside" -> ()
 | Warn _ | Warn' _ | Without_warning _ | Deep _ -> ();;
 [%%expect{|
+
 val h : t -> unit = <fun>
 |}];;
 
 let i = function
 | Deep (_ :: _ :: _ :: _) -> ()
 | Warn _ | Warn' _ | Without_warning _ | Deep _ -> ();;
 [%%expect{|
+
 val i : t -> unit = <fun>
 |}];;
 
 let j = function
 | Deep (_ :: _ :: ("deep",_) :: _) -> ()
 | Warn _ | Warn' _ | Without_warning _ | Deep _ -> ();;
 [%%expect{|
+
 Line 2, characters 7-34:
 2 | | Deep (_ :: _ :: ("deep",_) :: _) -> ()
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^