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