Contents

(* Test/exercise version: "1.0.0" *)

open Core
open OUnit2
open Space_age

(* Assert In Delta *)
let ae ~delta:delta exp got _ctxt =
  let msg = sprintf "Expected %f got %f, difference is greater than %f"
                    exp got delta in
  assert_bool msg (cmp_float ~epsilon:delta exp got)

let tests = [
   "age on Earth" >::
      ae ~delta:0.005 31.69 (age_on Earth 1000000000);
   "age on Mercury" >::
      ae ~delta:0.005 280.88 (age_on Mercury 2134835688);
   "age on Venus" >::
      ae ~delta:0.005 9.78 (age_on Venus 189839836);
   "age on Mars" >::
      ae ~delta:0.005 39.25 (age_on Mars 2329871239);
   "age on Jupiter" >::
      ae ~delta:0.005 2.41 (age_on Jupiter 901876382);
   "age on Saturn" >::
      ae ~delta:0.005 3.23 (age_on Saturn 3000000000);
   "age on Uranus" >::
      ae ~delta:0.005 1.21 (age_on Uranus 3210123456);
   "age on Neptune" >::
      ae ~delta:0.005 1.58 (age_on Neptune 8210123456);
]

let () =
  run_test_tt_main ("space-age tests" >::: tests)

Version data entries

150 entries across 150 versions & 1 rubygems

Version	Path
trackler-2.2.1.109	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.108	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.107	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.106	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.105	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.104	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.103	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.102	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.101	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.100	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.99	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.98	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.97	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.96	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.95	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.94	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.93	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.92	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.91	tracks/ocaml/exercises/space-age/test.ml
trackler-2.2.1.90	tracks/ocaml/exercises/space-age/test.ml