Sha256: 7a1f0f158a2152a06ca7f72307bd273075ea0d6e338fa99312856bf982978118
Contents?: true
Size: 785 Bytes
Versions: 63
Compression:
Stored size: 785 Bytes
Contents
open Base
open OUnit2
open Triangle
let ae exp got _test_ctxt = assert_equal exp got ~printer:Bool.to_string
let (* SUITE returns_true_if_the_triangle_is_equilateral *)equilateral_tests = [
(* TEST
"$description" >::
ae $expected (is_equilateral $sides);
END TEST *)
]
(* END SUITE *)
let (* SUITE returns_true_if_the_triangle_is_isosceles *)isosceles_tests = [
(* TEST
"$description" >::
ae $expected (is_isosceles $sides);
END TEST *)
]
(* END SUITE *)
let (* SUITE returns_true_if_the_triangle_is_scalene *)scalene_tests = [
(* TEST
"$description" >::
ae $expected (is_scalene $sides);
END TEST *)
]
(* END SUITE *)
let () =
run_test_tt_main (
"triangle tests" >:::
List.concat [equilateral_tests; isosceles_tests; scalene_tests]
)
Version data entries
63 entries across 63 versions & 1 rubygems