ocaml-containers/tests/run_tests.ml
2013-10-29 00:59:34 +01:00

41 lines
832 B
OCaml

open OUnit
(* TODO more tests *)
let suite =
"all_tests" >:::
[ Test_pHashtbl.suite;
Test_PersistentHashtbl.suite;
Test_bencode.suite;
Test_bv.suite;
Test_Behavior.suite;
Test_PiCalculus.suite;
Test_splayMap.suite;
Test_bij.suite;
Test_leftistheap.suite;
Test_cc.suite;
Test_puf.suite;
Test_vector.suite;
Test_gen.suite;
Test_deque.suite;
Test_fHashtbl.suite;
Test_fQueue.suite;
Test_flatHashtbl.suite;
Test_heap.suite;
Test_graph.suite;
Test_univ.suite;
Test_future.suite;
]
let props =
QCheck.flatten
[ Test_PersistentHashtbl.props
; Test_BV.props
; Test_bencode.props
; Test_vector.props
]
let _ =
ignore (QCheck.run_tests props);
ignore (run_test_tt_main suite);
()