2025-01-24 18:59:28 -08:00
|
|
|
open Util.Assert
|
|
|
|
|
open Hellocaml
|
|
|
|
|
|
|
|
|
|
(* These tests are provided by you -- they will be graded manually *)
|
|
|
|
|
|
|
|
|
|
(* You should also add additional test cases here to help you *)
|
|
|
|
|
(* debug your program. *)
|
|
|
|
|
|
|
|
|
|
let student_tests : suite = [
|
|
|
|
|
Test ("Student-Provided Tests For Problem 1-3", [
|
2025-01-26 21:47:38 -08:00
|
|
|
("case1", assert_eqf (fun () -> prob3_ans) 42);
|
|
|
|
|
("case2", assert_eqf (fun () -> (prob3_case2 17)) 25);
|
|
|
|
|
("case3", assert_eqf (fun () -> prob3_case3) 64);
|
2025-01-24 18:59:28 -08:00
|
|
|
]);
|
|
|
|
|
|
|
|
|
|
]
|
