File: test_char_allocation.ml

package info (click to toggle)
janest-base 0.17.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,632 kB
  • sloc: ml: 48,653; ansic: 281; javascript: 126; makefile: 14
file content (10 lines) | stat: -rw-r--r-- 268 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
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 {| |}]
;;