Sha256: f5dc826b84c26550cdccb1b20e327f3fc6974b7173a7a657ddca0b7fa2ba893d
Contents?: true
Size: 539 Bytes
Versions: 68
Compression:
Stored size: 539 Bytes
Contents
(* Test/exercise version: "1.3.0" *)
open OUnit2
open Leap
let ae exp got _test_ctxt = assert_equal exp got ~printer:string_of_bool
let tests = [
"year not divisible by 4: common year" >::
ae false (leap_year 2015);
"year divisible by 4, not divisible by 100: leap year" >::
ae true (leap_year 1996);
"year divisible by 100, not divisible by 400: common year" >::
ae false (leap_year 2100);
"year divisible by 400: leap year" >::
ae true (leap_year 2000);
]
let () =
run_test_tt_main ("leap tests" >::: tests)
Version data entries
68 entries across 68 versions & 1 rubygems