blob: 77996e5bd4625971591014fd5f5e53ddb1d3e8aa (
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.
|}]
;;
|