unikernel/duniverse/ppxlib/test/location/exception/dune

@@ -0,0 +1,14 @@
+(rule
+ (package ppxlib)
+ (alias runtest)
+ (enabled_if
+  (>= %{ocaml_version} "4.08.0"))
+ (deps
+  (:test test.ml)
+  (package ppxlib))
+ (action
+  (chdir
+   %{project_root}
+   (progn
+    (run expect-test %{test})
+    (diff? %{test} %{test}.corrected)))))

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"
+|}]