(* TEST
   * expect
*)

let test f =
  match f () with exception Not_found -> ()
;;

[%%expect{|
Line 2, characters 2-43:
2 |   match f () with exception Not_found -> ()
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: None of the patterns in this 'match' expression match values.
|}]
;;