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 = [
(* TEST
   "$description" >::
      ae ~delta:0.005 $expected (age_on $planet $seconds);
   END TEST *)
]

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