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

Version	Path
trackler-2.2.1.139	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.138	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.137	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.136	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.135	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.134	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.133	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.132	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.131	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.130	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.129	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.128	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.127	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.126	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.125	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.124	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.123	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.122	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.121	tracks/ocaml/exercises/triangle/test.ml
trackler-2.2.1.120	tracks/ocaml/exercises/triangle/test.ml