18 lines
413 B
OCaml
18 lines
413 B
OCaml
|
open Ppxlib.Location
|
||
|
|
|
||
|
|
let catch_as_compiler_exception =
|
||
|
|
try raise_errorf ~loc:none "foo" with
|
||
|
|
| Ocaml_common.Location.Error _ -> "caught"
|
||
|
|
| _ -> "uncaught"
|
||
|
|
[%%expect{|
|
||
|
|
val catch_as_compiler_exception : string = "caught"
|
||
|
|
|}]
|
||
|
|
|
||
|
|
let catch_as_ppxlib_exception =
|
||
|
|
try raise_errorf ~loc:none "foo" with
|
||
|
|
| Error _ -> "caught"
|
||
|
|
| _ -> "uncaught"
|
||
|
|
[%%expect{|
|
||
|
|
val catch_as_ppxlib_exception : string = "caught"
|
||
|
|
|}]
|