20 lines
262 B
OCaml
20 lines
262 B
OCaml
|
open OUnit2
|
||
|
|
|
||
|
|
|
||
|
|
let test_signed test_ctx =
|
||
|
|
let n = 0xFA in
|
||
|
|
let s = Cpu.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
|
||
|
|
|