Solve up to problem 3-4 of HW1
Signed-off-by: jmug <u.g.a.mariano@gmail.com>
This commit is contained in:
parent
42aeacd9c1
commit
226956072a
2 changed files with 28 additions and 12 deletions
|
|
@ -8,9 +8,9 @@ open Hellocaml
|
|||
|
||||
let student_tests : suite = [
|
||||
Test ("Student-Provided Tests For Problem 1-3", [
|
||||
("case1", assert_eqf (fun () -> failwith "Problem 3 case1 test unimplemented") prob3_ans );
|
||||
("case2", assert_eqf (fun () -> failwith "Problem 3 case2 test unimplemented") (prob3_case2 17) );
|
||||
("case3", assert_eqf (fun () -> prob3_case3) 0);
|
||||
("case1", assert_eqf (fun () -> prob3_ans) 42);
|
||||
("case2", assert_eqf (fun () -> (prob3_case2 17)) 25);
|
||||
("case3", assert_eqf (fun () -> prob3_case3) 64);
|
||||
]);
|
||||
|
||||
]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue