diff --git a/src/alcotest-engine/test.ml b/src/alcotest-engine/test.ml
index e441c610..565e427a 100644
--- a/src/alcotest-engine/test.ml
+++ b/src/alcotest-engine/test.ml
@@ -63,6 +63,10 @@ let char =
   let pp_char ppf x = Fmt.pf ppf "%C" x in
   testable pp_char ( = )
 
+let uchar =
+  let pp_uchar ppf x = Fmt.Dump.uchar ppf x in
+  testable pp_uchar ( = )
+
 let string =
   let pp_string ppf x = Fmt.pf ppf "%S" x in
   testable pp_string ( = )
diff --git a/src/alcotest-engine/test.mli b/src/alcotest-engine/test.mli
index 4f0a6e78..45f059ac 100644
--- a/src/alcotest-engine/test.mli
+++ b/src/alcotest-engine/test.mli
@@ -62,6 +62,9 @@ val float : float -> float testable
 val char : char testable
 (** [char] tests characters. *)
 
+val uchar : Uchar.t testable
+(** [uchar] tests Unicode characters. *)
+
 val string : string testable
 (** [string] tests OCaml strings. *)