unikernel/duniverse/ppxlib/test/location/exception/test.ml

@@ -0,0 +1,17 @@
+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"
+|}]