unikernel/duniverse/base/test/test_int63_emul.ml

@@ -0,0 +1,14 @@
+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))
+    |}]
+;;