mirror of
https://github.com/c-cube/iter.git
synced 2025-12-07 03:35:32 -05:00
17 lines
309 B
OCaml
17 lines
309 B
OCaml
|
|
open OUnit
|
|
|
|
module S = Sequence
|
|
|
|
let test_empty () =
|
|
let seq = S.empty in
|
|
OUnit.assert_bool "empty" (S.is_empty seq);
|
|
OUnit.assert_bool "empty"
|
|
(try S.iter (fun _ -> raise Exit) seq; true with Exit -> false);
|
|
()
|
|
|
|
let suite =
|
|
"test_sequence" >:::
|
|
[ "test_empty" >:: test_empty;
|
|
|
|
]
|