Sha256: 0317fb72ecc89bd798b470a00ea65e23ea411375765cfebcb76fd96ab689124e
Contents?: true
Size: 962 Bytes
Versions: 45
Compression:
Stored size: 962 Bytes
Contents
open Core.Std
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
45 entries across 45 versions & 1 rubygems