From 0aae100ded383a4598ea82383dc4b6539e3977fe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=89mile=20Enguehard?= <ejmenguehard@gmail.com>
Date: Tue, 17 Mar 2026 11:58:43 +0100
Subject: [PATCH] Add uchar testable

---
 src/alcotest-engine/test.ml  | 4 ++++
 src/alcotest-engine/test.mli | 3 +++
 2 files changed, 7 insertions(+)

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. *)