ocaml-containers/tests/run_tests.ml
2014-05-22 23:58:36 +02:00

39 lines
780 B
OCaml

open OUnit
(* TODO more tests *)
let suite =
"all_tests" >:::
[ Test_pHashtbl.suite;
Test_PersistentHashtbl.suite;
Test_bencode.suite;
Test_bv.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;
]
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);
()