// This file was auto-generated based on version 1.6.0 of the canonical data. module LeapTests open FsUnit.Xunit open Xunit open Leap [] let ``Year not divisible by 4 in common year`` () = leapYear 2015 |> should equal false [] let ``Year divisible by 2, not divisible by 4 in common year`` () = leapYear 1970 |> should equal false [] let ``Year divisible by 4, not divisible by 100 in leap year`` () = leapYear 1996 |> should equal true [] let ``Year divisible by 4 and 5 is still a leap year`` () = leapYear 1960 |> should equal true [] let ``Year divisible by 100, not divisible by 400 in common year`` () = leapYear 2100 |> should equal false [] let ``Year divisible by 100 but not by 3 is still not a leap year`` () = leapYear 1900 |> should equal false [] let ``Year divisible by 400 in leap year`` () = leapYear 2000 |> should equal true [] let ``Year divisible by 400 but not by 125 is still a leap year`` () = leapYear 2400 |> should equal true [] let ``Year divisible by 200, not divisible by 400 in common year`` () = leapYear 1800 |> should equal false