simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

start testing of Enum

Browse source
This commit is contained in:
Simon Cruanes 2013-03-18 23:59:52 +01:00
parent 81e30d76bf
commit a3182f131b
2 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
tests/run_tests.ml
View file

@ -6,6 +6,7 @@ let suite =
"all_tests" >:::
[ Test_pHashtbl.suite;
Test_vector.suite;
Test_enum.suite;
Test_deque.suite;
Test_fHashtbl.suite;
Test_fQueue.suite;

25
tests/test_enum.ml Normal file
View file

@ -0,0 +1,25 @@
open OUnit
open Enum.Infix
let pint i = string_of_int i
let test_singleton () =
let e = Enum.singleton 42 in
let gen = Enum.start e in
OUnit.assert_equal 42 (Enum.next gen);
OUnit.assert_raises Enum.EOG (fun () -> Enum.next gen);
OUnit.assert_equal 1 (Enum.length e);
()
let test_iter () =
let e = 1 -- 10 in
OUnit.assert_equal ~printer:pint 10 (Enum.length e);
(* TODO *)
()
let suite =
"test_enum" >:::
[ "test_singleton" >:: test_singleton;
"test_iter" >:: test_iter;
]