Sha256: 52b9821e7ecb10365e066e5a8fe3d53262600e9c448bb3d1d88d620daab6bbb3
Contents?: true
Size: 785 Bytes
Versions: 156
Compression:
Stored size: 785 Bytes
Contents
open Core
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
156 entries across 156 versions & 1 rubygems