elm/exercises/leap/LeapTests.elm
2016-03-12 11:47:27 -05:00

25 lines
704 B
Elm

module Main (..) where
import Task
import Console
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))
]
port runner : Signal (Task.Task x ())
port runner =
Console.run (consoleRunner tests)