19 lines
254 B
OCaml
19 lines
254 B
OCaml
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
|