unikernel/duniverse/base/test/allocation/test_char_allocation.ml

@@ -0,0 +1,10 @@
+open! Base
+open Expect_test_helpers_core
+
+let%expect_test _ =
+  let x = Sys.opaque_identity 'a' in
+  let y = Sys.opaque_identity 'b' in
+  require_no_allocation [%here] (fun () ->
+    ignore (Sys.opaque_identity (Char.Caseless.equal x y) : bool));
+  [%expect {| |}]
+;;