26 lines
567 B
Forth
26 lines
567 B
Forth
// This file was auto-generated based on version 1.3.0 of the canonical data.
|
|
|
|
module LeapTest
|
|
|
|
open FsUnit.Xunit
|
|
open Xunit
|
|
|
|
open Leap
|
|
|
|
[<Fact>]
|
|
let ``Year not divisible by 4: common year`` () =
|
|
leapYear 2015 |> should equal false
|
|
|
|
[<Fact>]
|
|
let ``Year divisible by 4, not divisible by 100: leap year`` () =
|
|
leapYear 1996 |> should equal true
|
|
|
|
[<Fact>]
|
|
let ``Year divisible by 100, not divisible by 400: common year`` () =
|
|
leapYear 2100 |> should equal false
|
|
|
|
[<Fact>]
|
|
let ``Year divisible by 400: leap year`` () =
|
|
leapYear 2000 |> should equal true
|
|
|