src/test/run_tests.ml


1
2
3
4
5
6
7
8
9
10
11
12

let tests = [
  "test1", Test1.defs;
  "test2", Test2.defs;
  "test3", Test3.defs;
  "pattern", Pattern.defs;
  "vectors", Vectors.defs;
(*  "power", Power.defs;*)
] ;;

let run_all () = List.iter Run_interp.run tests ;;

run_all () ;;