unikernel/duniverse/base/test/test_error.ml

@@ -0,0 +1,28 @@
+open! Base
+open! Import
+
+let errors =
+  [ Error.of_string "ABC"
+  ; Error.tag ~tag:"DEF" (Error.of_thunk (fun () -> "GHI"))
+  ; Error.create_s [%message "foo" ~bar:(31 : int)]
+  ]
+;;
+
+let%expect_test _ =
+  List.iter errors ~f:(fun error -> show_raise (fun () -> Error.raise error));
+  [%expect {|
+    (raised ABC)
+    (raised (DEF GHI))
+    (raised (foo (bar 31)))
+    |}]
+;;
+
+let%expect_test _ =
+  List.iter errors ~f:(fun error ->
+    show_raise (fun () -> Error.raise_s [%sexp (error : Error.t)]));
+  [%expect {|
+    (raised ABC)
+    (raised (DEF GHI))
+    (raised (foo (bar 31)))
+    |}]
+;;