expect test

expect_test.ml

let%expect_test _ =
  let test l =
    let stringify l = List.map ~f:Int.to_string |> String.concat ~sep:"-" in
    List.group l ~break:(fun x y -> y < x)
    |> List.iter ~f:(fun sub -> print_endline (stringify sub))
  in
  test [1;2;3;2;3;3;6;1;2;36;7];
  [%expect {|
    1-2-3
    2-3-3-6
    1-2-36
    7
  |}]