17 lines
486 B
Standard ML
17 lines
486 B
Standard ML
(** Test suites for builtin basic_arithmetic ml file using oUnit. *)
|
|
|
|
open OUnit2
|
|
open Builtin
|
|
open Basic_arithmetics
|
|
open Test_builtin_templates
|
|
|
|
let () = let t_list = [(32, 6), 2; (18, 12), 6; (-18, -12), 6] in
|
|
run_test template_2_1 "GCD Function" gcd t_list
|
|
;;
|
|
|
|
let () = let t_list = [(18, 22), (5, -4, 2); (22, 18), (-4, 5, 2);
|
|
(17, 21), (5, -4, 1); (21, 17), (-4, 5, 1)]
|
|
in
|
|
run_test template_2_3 "Bezout Function" bezout t_list
|
|
;;
|