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