10 lines
268 B
OCaml
10 lines
268 B
OCaml
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 {| |}]
|
|
;;
|