elm/exercises/leap/LeapTests.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)