Sha256: e863cdcbdbbcbaabad61398306b72d6741807c389abc27eaadcf676006580bbb
Contents?: true
Size: 1.07 KB
Versions: 141
Compression:
Stored size: 1.07 KB
Contents
module Test.Main where
import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.AVar (AVAR)
import Control.Monad.Eff.Console (CONSOLE)
import Test.Unit (TestSuite, suite, test)
import Test.Unit.Console (TESTOUTPUT)
import Test.Unit.Main (runTest)
import Test.Unit.Assert as Assert
import Leap as Leap
main :: forall eff
. Eff ( avar :: AVAR
, console :: CONSOLE
, testOutput :: TESTOUTPUT
| eff
)
Unit
main = runTest suites
suites :: forall e. TestSuite e
suites = do
suite "Leap.isLeapYear" do
test "leap year" do
Assert.equal true $ Leap.isLeapYear 1996
test "non-leap year" do
Assert.equal false $ Leap.isLeapYear 1997
test "non-leap even year" do
Assert.equal false $ Leap.isLeapYear 1998
test "century" do
Assert.equal false $ Leap.isLeapYear 1900
test "second century" do
Assert.equal false $ Leap.isLeapYear 1800
test "fourth century" do
Assert.equal true $ Leap.isLeapYear 2400
test "y2k" do
Assert.equal true $ Leap.isLeapYear 2000
Version data entries
141 entries across 141 versions & 1 rubygems