-test (Period.to_seconds one_two_three = 3723.) "Period.to_seconds";;
-test (Period.to_minutes one_two_three = 62.05) "Period.to_minutes";;
+let eq f1 f2 = abs_float (f1 -. f2) < 1e-5;;
+test (eq (Period.to_seconds one_two_three) 3723.) "Period.to_seconds";;
+test (eq (Period.to_minutes one_two_three) 62.05) "Period.to_minutes";;