14 lines
388 B
OCaml
14 lines
388 B
OCaml
open! Import
|
|
module Int63_emul = Base.Int63.Private.Emul
|
|
|
|
let%expect_test _ =
|
|
let s63 = Int63.(Hex.to_string min_value) in
|
|
let s63_emul = Int63_emul.(Hex.to_string min_value) in
|
|
print_s [%message (s63 : string) (s63_emul : string)];
|
|
require [%here] (String.equal s63 s63_emul);
|
|
[%expect
|
|
{|
|
|
((s63 -0x4000000000000000)
|
|
(s63_emul -0x4000000000000000))
|
|
|}]
|
|
;;
|