blob: 8ce6ac37810f124f27fe13a98aae268b8d1e4b78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(* 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.
|}]
;;
|