oboy/test/test_bit.ml

open OUnit2


let test_signed _ =
  let n = 0xFA in
  let s = Bit.signed_byte n in
  assert_equal s (-6)


(* Name the test cases and group them together *)
let suite =
"suite">:::
 [
   "test signed">:: test_signed
 ]

let () =
  run_test_tt_main suite