File: runner.ml

package info (click to toggle)
extlib 1.8.0-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 656 kB
  • sloc: ml: 6,942; makefile: 137; sh: 42; ansic: 31
file content (22 lines) | stat: -rw-r--r-- 506 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
(** test runner *)

let () =
  let filter =
    match Array.to_list Sys.argv with
    | [] | [_] -> None
    | _::l -> Some (List.map ExtString.String.lowercase l)
  in
  let tests = [
    Test_BitSet.register;
    Test_Dllist.register;
    Test_DynArray.register;
    Test_ExtArray.register;
    Test_ExtHashtbl.register;
    Test_ExtList.register;
    Test_ExtString.register;
    Test_IO.register;
  ]
  in
  List.iter (fun register -> register ()) tests;

  exit (if Util.run_all filter then 0 else 1)