28 lines
781 B
OCaml
28 lines
781 B
OCaml
(** Test suites for builtin builtin ml file using oUnit. *)
|
|
|
|
open OUnit2
|
|
open Builtin
|
|
open Test_builtin_templates
|
|
|
|
let () = let t_list = [(1, 1); (-1, -1); (0, 1)] in
|
|
run_test template_1_1 "Sign Function" sign t_list
|
|
;;
|
|
|
|
let () = let t_list = [(10, 3), 3; (-10, 3), -4;
|
|
(10, 2), 5; (-10, 2), -5]
|
|
in
|
|
run_test template_2_1 "Quot Function" quot t_list
|
|
;;
|
|
|
|
let () = let t_list = [(10, 3), 1; (10, 2), 0;
|
|
(10, 2), 0; (-10, 2), 0]
|
|
in
|
|
run_test template_2_1 "Modulo Function" modulo t_list
|
|
;;
|
|
|
|
let () = let t_list = [(10, 3), (3, 1); (-10, 3), (-4, 2);
|
|
(10, 2), (5, 0); (-10, 2), (-5, 0)]
|
|
in
|
|
run_test template_2_2 "Div Function" div t_list
|
|
;;
|