elm/exercises/leap/LeapTests.elm

module Main exposing (..)

import ElmTest exposing (..)
import Leap


tests : Test
tests =
  suite
    "Leap"
    [ test "leap year" (assertEqual True (Leap.isLeapYear 1996))
    , test "non-leap year" (assertEqual False (Leap.isLeapYear 1997))
    , test "non-leap even year" (assertEqual False (Leap.isLeapYear 1998))
    , test "century" (assertEqual False (Leap.isLeapYear 1900))
    , test "second century" (assertEqual False (Leap.isLeapYear 1800))
    , test "fourth century" (assertEqual True (Leap.isLeapYear 2400))
    , test "y2k" (assertEqual True (Leap.isLeapYear 2000))
    ]


main : Program Never
main =
  runSuite tests