Sha256: d5b253a0730adadb37af0eb9afd34d1d21f03bdc5e388262e83f3cfa18a0266d
Contents?: true
Size: 1.52 KB
Versions: 68
Compression:
Stored size: 1.52 KB
Contents
(* Test/exercise version: "1.0.0" *)
open Base
open OUnit2
open Triangle
let ae exp got _test_ctxt = assert_equal exp got ~printer:Bool.to_string
let equilateral_tests = [
"true if all sides are equal" >::
ae true (is_equilateral 2 2 2);
"false if any side is unequal" >::
ae false (is_equilateral 2 3 2);
"false if no sides are equal" >::
ae false (is_equilateral 5 4 6);
"All zero sides are illegal, so the triangle is not equilateral" >::
ae false (is_equilateral 0 0 0);
]
let isosceles_tests = [
"true if last two sides are equal" >::
ae true (is_isosceles 3 4 4);
"true if first two sides are equal" >::
ae true (is_isosceles 4 4 3);
"true if first and last sides are equal" >::
ae true (is_isosceles 4 3 4);
"equilateral triangles are also isosceles" >::
ae true (is_isosceles 4 4 4);
"false if no sides are equal" >::
ae false (is_isosceles 2 3 4);
"Sides that violate triangle inequality are not isosceles, even if two are equal" >::
ae false (is_isosceles 1 1 3);
]
let scalene_tests = [
"true if no sides are equal" >::
ae true (is_scalene 5 4 6);
"false if all sides are equal" >::
ae false (is_scalene 4 4 4);
"false if two sides are equal" >::
ae false (is_scalene 4 4 3);
"Sides that violate triangle inequality are not scalene, even if they are all different" >::
ae false (is_scalene 7 3 2);
]
let () =
run_test_tt_main (
"triangle tests" >:::
List.concat [equilateral_tests; isosceles_tests; scalene_tests]
)
Version data entries
68 entries across 68 versions & 1 rubygems