46 lines
982 B
OCaml
46 lines
982 B
OCaml
|
(* CIS341 main test harness *)
|
||
|
|
(* Author: Steve Zdancewic *)
|
||
|
|
|
||
|
|
(* Do NOT modify this file -- we will overwrite it with our *)
|
||
|
|
(* own version when we test your homework. *)
|
||
|
|
|
||
|
|
open Util.Assert
|
||
|
|
open Arg
|
||
|
|
|
||
|
|
exception Ran_tests
|
||
|
|
|
||
|
|
let worklist = ref []
|
||
|
|
|
||
|
|
let suite = ref (Studenttests.student_tests @ Gradedtests.graded_tests)
|
||
|
|
|
||
|
|
let exec_tests () =
|
||
|
|
let o = run_suite !suite in
|
||
|
|
Printf.printf "%s\n" (outcome_to_string o) ;
|
||
|
|
raise Ran_tests
|
||
|
|
|
||
|
|
|
||
|
|
let do_one_file fn =
|
||
|
|
let _ = Printf.printf "Processing: %s\n" fn in
|
||
|
|
()
|
||
|
|
|
||
|
|
|
||
|
|
(* Use the --test option to run unit tests and the quit the program. *)
|
||
|
|
let argspec =
|
||
|
|
[ ("--test", Unit exec_tests, "run the test suite, ignoring other inputs") ]
|
||
|
|
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
try
|
||
|
|
Arg.parse
|
||
|
|
argspec
|
||
|
|
(fun f -> worklist := f :: !worklist)
|
||
|
|
"CIS341 main test harness \n" ;
|
||
|
|
match !worklist with
|
||
|
|
| [] ->
|
||
|
|
print_endline "* Nothing to do"
|
||
|
|
| _ ->
|
||
|
|
List.iter do_one_file !worklist
|
||
|
|
with
|
||
|
|
| Ran_tests ->
|
||
|
|
()
|